■J 



I.C.T. ATLAS COICPUTER 



SUPERVISOR AND FIXED STORE ROUTIHE 
SPECIEICATIOKS 



VOLmiE 5 
ROUTINE 600 OM/iiRDS 



/ .' 



Both the Atlas computer and the routines described in 
this document are the result of a collaboration between 
Manchester University and I.C.T. Limited (formerly Ferranti 
Limited, Computer Department), 

This document is confidential and may not be given or 
lent to any person other than addressee without the 
authority of I.C.T. Limited. 



O 



CONTENTS /I (VOL J) 



.TOB DESCRIPTIONS 



r6oo 
a602 
S603 
H604 
11605 
.i6o6 
?.6o7 
;a6o8 
2609 
a6io 
e6ii 

a6i2 
1613 
11614 

Fi6i5 
e6i6 
£617 
ft6i8 
P.619 

?.620 

R621 
yi622 
R623 
'ti624 

5"',625 
P.626 
'i627 
X1628 



Get next character jjot issued 

Read statements beginning * 'Print'* 1,9,64 

Read statements beginning "Tape'* 1,9.64 

To interpret statements beginning with an integer(n) 1,9,64 

To interpret statements beginning "cOPY** 1,9,64 

Translate lines beginning "Store" 1,9,64 

Read statements beginning "Parameters" 1,9,64 

Read statements beginning "Execution" or "computing" 1,9,64 

Re-entry to input master from peripheral routines, 1,9.64 

Entered when the peripheral is engaged by the operator 1,9.64 
Routine entered when end of a compiler or data document 

is found 1.9.64 

Start of day routine - peripherals I.9.64 

To deal with the end of a job document 1.9. 64 
To form processed job description of any jobs that are 

completely in the machine 1.9. 64 

To translate statements beginning * l,v9.64 

Implement ***A 1,9,64 

Read statements beginning "compiler" 1,9,64 

Translate lines beginning "DATA" 1.9,64 

Constants and parameters associated with each peripheral 1,9,64 

Error Routine Not issued 

Translate the next line of input 1,9.64 

To disengage peripheral 1.9. 64 

Translate lines beginning 'self ', 'input' , 'output* , 1.9,64 
Entered when a peripheral becomes free or a program 

is completed 1.9,64 

Allocate store for peripheral 1.9,64 

Input block full 1.9. 64 

Buffer bloclc full 1.9,64 
Entered from input disposal when a block has been put onto 

tape 1.9,64 



1.9.64 



CONTENTS /2 (VOL 5) 



SCHEDULER ROUTINEr: 



-^ 



O 



R650 

R6525 

a653 
R654 
R635 
R656 
.U657 
R65C 
R659 

r66o 
r65i 
R662 
R663 
a664 
R665 
r666 
<r66, 

and 
R667 
r668 
r66o 



Scheduler notes 

Supervisor Tables Used by Scheduler Routines 

Job Description Entries 

Execution Directories 

Compiler Directory Entries 

Peripheral Entries 

Active List Scheduler(lo6) . Flow Diagram 

Execute Scheduler(250) , Flov/ Diagram 

Document Assembly Flow Chart 

Enter job in execute list 

Job assembly complete action 

Scheduler parameters and tables 

Set scheduling bits 

Selection routine 

End of job routine 

Set up stream directory 

Set up new priority 

Prepare to write input well block 

Activate scheduler (fixed store ixjutine) 

Scheduler entry and exit 
Active list selection routine 
Enter job in active list 
Semi-emergency entry to scheduler 
Select assembly type documents 
Job assembly routine 

R795,rG66 

R996) Re-entry routine 

Shift n places 

Set up job size 



1.9.64 
1.9.64 
1.9.64 
1.9.64 

1.9.64 
1.9.64 
1.9.64 
1.9.64 

1.9.64 

1.9.64 

1.9.64 

1.9.64 

1.9.64 

1.9.64 

1.9.64 

1.9.64 

1.9.64 

Not issued 

1.9.64 

1,9.64 
1.9.64 
1.9.64 
1.9.64 
1,9.64 
1.9.64 



1.9.64 
1.9.64 
1.9.64 



R670 
R67I 
R672 
R673 
R674 
R675 
R676 
R677 
R678 
R679 



Select document for assembly 
Find input well block 
Remove / duplicate routine 
Assembly control routine 

Document complete action 
Prepare to read in 
Return from read in 
List job description 



1.9.64 
1.9.64 
1.9.64 
1.9.64 

1.9.64 
1.9.64 
1,9.64 
1.9.64 



1.9.64 



CONTENTS /5 (VOL 3 > 



O 



iiSSo Test if separator present 1,9.64 

a6ol Read next n characters or find next non-separator 1,9,64 

R683 Read Integer 1,9.64 

R684 Amount of subroutines 1,9,64 

S685 Duplicate a title to buffer block and add one to number of 

tape decks needed 1.9,64 

a686 Read (a) / (b) / (c) 1.9. 64 

^687 Test if title is element of a list 1.9,64 

V{688 To form checksums of title 1,9,64 

U689 To record the details of a new output stream 1.9. 64 

1^690 To enter document or title in incomplete job list 1,9.64 

:':f,691 To request another archive tape I.9.64 

a6g3 Ask for 12 or 2| word block of space 1,9,64 

»6g3 Ask for 62 word block 1.9. 64 

•694 Give back 12 or 2I word block of space 1,9,64 

;';695 To find length of output in Blocks/lines 1.9,64 

1696 Recognise an output peripheral name 1,9.64 

^,697 Find next non-separator 1.9. 64 



lONITOR ROUTINES 

•-700 Program Monitor Interrupt and SER 

.\i70l On Line Monitor Extracode and Trap 

•^702 Enter Monitor 

K'.703 Block Monitor 

M704 Instruction Coxmter Monitor 

;;706 Set, Read Instruction Counter 

(^ ^^709 Off Line Program Monitor 

W7I0 Main Store Monitor 

U7H Standard Monitor Post Mortem 

;:7i2 End Program 

'^720 Tempory Main Store Monitor 

''731 Temporary Standard Monitor Post Mortem 

9722 Temporary End Program 

,'^723 Temporary Clear Program and Job Scan 

iiSoi Octal Input 



16,7.62 
16,7.62 
16.7.62 
16.7.62 
16.7.62 
16.7.62 
16.7.62 
16.7.62 
16.7.62 
16.7,62 
16.7.6.2 
16.7.62 
16.7.62 
16.7.62 

16.7,62 



o 



l:'ISCELLANEOUS ROUTINES 



agSo 
•1981 
11982 
;;^83 
^984 

vi986 

iig88 



Compiler assembly 

Find compiler name 

Find / free halted program 

Tape assembly for execution jobs 

Tape assembly for active list jobs 

Obtain a free deck 

Action after tape mounted 



16,7.62 
Not issued 

16.7.62 
16.7.62 
16.7.62 
16.7.62 
Not issued 



1,9.64 



u 



R602 . 

Purpose . Read statements beginning 'print' 

a) 

b) 
No of Instructions. 



1 602 



Cross 


References, 


(30) 


= ( 1/600) 


(31) 


= (2/681) 


(32) 


= (1/601) 


(33) 


= (I/693) 


(34) 


= (I/682) 


(35) 


= (2/685) 


(36) 


= (3/684) 


(37) 


= ( 1/690) 


(38) 


= (1/521) 


(39) 


= (1/686) 


(40) 


= (30/619) 



PRINT TAPE 

(Title) 

Print TAPE, a/b/c, Title. 



Get next Character. 

find beginning of next word. 

Read next in characters. 

Ask for space. 

Read and store title. 

Revise I tape deck. 

Store vrords 10.0, 11.0, 11. 4 

Add title to incomplete job list. 

Translation of beginning of line. 

Read characters a/b/c. 

Store word for word to be put into .10.0 
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CONNECTIONS . 

Enter at 1) if line begins with . PRINT 

EXIT, to next line on completion of translation of statement 
Can also exit to Error Routine via any of its subroutine. 



Notes. 



O 



1) Insists that statements be of the foira, 

a) Print (separator) TAPE (newline) 
(TITLE) 

b) Print (separator)TAPB(separator)(a)/(b)/(c)(separator)(Title) 

2) For (a) forms a 12 word block which has the form, 
Vfords 0-9.4 Title of tape in 6 bit characters 
Word 10.0 bits 20-23 = title identifier = * 50 

10.4 = Link with next title connected 

with this job. 

3) For (b) forms 12 word block of forra.:- 



Wordt 
Word 



0-9 = = Title of tape in 6 bit characters 

10.0 = bits 4-6 = (c)-position in block, 
bits 7-19 = (b) block no. 

20-23 = identifier = * 40. 



10.4 = 
11.0 = 
11.4 = 



= Link with next title with this job, 
= (a) in 6 bit characters. 
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Purpose, Read statements beginning -* TAPE* 



a) 


Tape FREE, (n) , (Title) 


b) 


Tape , (n) , (Title) 


c) 


Tape / (ra) , (n) , (Title) 


d) 


Tape / (ra) , END , (n) , (Title) 


e) 


Tape , (a) /(b) /(c) , (title) 



No of Instructions, 



Cross References. 



O 



(30) 


= 


(I/6I9) 


(31) 


= 


(1/600) 


(32) 


= 


(a/683) 


(33) 


TS 


(31/619) 


(34) 


cs 


(30/619) 


(35) 


= 


(1/620) 


(36) 


= 


(32/619) 


(37) 


= 


(2/681) 


(38) 


= 


( 1/692) 


(39) 


= 


( 1/682) 


(40) 


= 


(3/684) 


(41) 


= 


( 1/621) 


(42) 


=: 


( 1/690) 


(43) 


= 


(1/681) 


(44) 


= 


(2/685) 


(46) 


= 


(1/686) 


(47) 


= 


( 1/691) 


(48) 


= 


(40/619) 


(49) 


= 


(I/683) 


Connections 


with other routines 



J marker. 

Get nejct character. 

Read integer. 

Store register for Word to be stored in 
♦» »• 11.0 of 12 word block, 
•' " 10,0 of 12 word block. 

Routine 'Error Routine ' , 

Store register for word to be stored 

in 11.4 OF 12 word block. 

Routine find beginning of title. 

Routine 'to ask for store block* 

Routine 'Read and store Title*. 

Routine ' Store words 10.0,11.0,11,4, 

Routine 'find next line'. 

Routine Entry in incomplete job list' 

Routine 'get next in characters. 

Routine 'Add 1 to no of tape decks needed. 

Routine * Read (a)/(b)/(c) 

Routine ' set systems decks* 

Store used for J marker. 
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Enter at 1) with statements beginning with TAPE. 

Exit - to Translate next line. 
Exit - to Error Routine, 

Exit - to error routine via any subroutines used. 

Notes . 

1) Tape (separator) Free( separator) (n)(separator(Titlo)(newline). 
Forms 12 word section, 
words 0-9.4 ~ ~ Title of Tape in 6 bit characters. 



words 0-9,4 ~ bits O - 3 
bits 20 -23 
words 10.4 = 



Gives Error if a) 

b) 



= no of tape docvunent (n) 

= Identifies = * 24. 

= Link with next title for this Job. 



n >, 16 

more than 80 characters in title, 
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1603.2 

I^TES . (continued) 

3) TAPE(Sep&XO!.toa->(ii><Sopa.3ra.tor> (Title) 

as (1) 

except IdentifiGS = * 20. 

3) TAPE / (m> (separator) (n) (separator) (Title). 

Word 0-9.4 ~ - Title IK 6 bit characters. 

Word 10.0 = bits 20-23 = Identifier = * 3. 

bits o -3 = (n) 
word 10.4 = link with next title connected to current job. 
word 11 „0 = bits -23 = (la) 

word 11.4 = =0 

Gives error if a) n > I6 

b) more than 80 characters in title. 

c) Incorrect Format. 

4) TAPE/ (m) (separator) END (separator) (n)( separator) (Title) 

as (3) except word 10, bit I9 = 1 to show END. 

^~\ 5) TAPE ( separator) (a) / (b)/(c) (separator) (n) (separator) (Title), 

word 0-9,4 ~ - Title in 6 bit characters. 

- here, the title is that of the 
document stored on tape 
in block (b) 
word 10 = bits 2O-23 = Identifies * I4. 

bits 0-3 = (n) no of input document 

word 104 = Link with next title 

word 11.0 = bits o -7 -- (a) - here (a) refers 

to an entry in the Tape 
section of the job document 
and is the programmer' s tape 
number not the physical 
tape identifier. 



Gives error if. 





bits 8-10 = (c) - posi 




bits 11-23 - (b) - bloc 


a) 


n > 16 


b) 


b > 5000 


c) 


more than 80 characters in title. 


d) 


Incorrect fORJ.IAT. 



o 
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1604.1 
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Purpose^ 



To tnt<.>iv*"«'l; j3+f**-=>"iont;« »*ueliintns with an intogur (n). i.o. 



, ( Title) 

, (peripheral) , (n) Blocks/Line. 

, TAPE FREE/ (peripheral) , (in) BLOCKS/LINES, (Title) 

, Tape (b)/ (peripheral) ,m Blocks/LIHES , (Title) 



a) 


(n) 


b) 


(n) 


c) 


(n) 


d) 


(n) 



Ho of Instructions, 



O 



Cross 


- References. 


(30) 


— 


(2/683) 


(31) 


= 


(30/619) 


(32) 


= 


(I/6I9) 


(33) 


= 


( 1/630) 


(34) 


= 


(I/68I) 


(35) 


= 


(2/681) 


(36) 


= 


(1/696) 


(37) 


= 


(I/683) 


(38) 


= 


( 1/695) 


(39) 


s 


(40/619) 


(40) 


= 


(I/689) 


(4I) 


= 


(I/621) 


(42) 


=: 


(I/693) 


(43) 


= 


(1/682) 


(44) 


= 


(3/684) 


(45) 


= 


(i/690) 


(46) 


= 


(1/600) 


(47) 


— 


(30/619) 


Cross 


References. 


(48) 




(2/685) 


(49) 


= 


(33/619) 


(50) 


=s 


( 1/687) 


(51) 


= 


(1/690) 


(52) 


= 


(1/694) 


(53) 


= 


(34/619) 


(54) 


= 


(9/619) 


(55) 


= 


(2/619) 


(56) 


r: 


(32/619) 


Connections. 





Alternative entiTr Routine ' Read integer* 

Store Location for word to be stored lO.O, 

Jmaiiccr List. 

Error Routine 

Routine* Read next in characters* 

Routine *Find beginning of next word* 

Routine 'Recognize peripheral* 

Routine *Road integer' 

Routine 'Form correct units of length. 

List of integer switches. 

Routine' to enter new output device' 

Routine' Translate next line. 

Routine' ask for space' 

Routine * Read and store Title' 

Routine 'Set words 10,0,11,, 11. 4, 

Routine ' Enter in incomplete job list' 

Get next character Routine. 

Store location for word to be stored in 10.0 



Routine' Add one to no of tape decks needed, * 

List- 'hero, not assigned.' 

Routine 'Test if title is element of list. ' 

But on incomplete job entry. 

Give back space. 

Head of 'not here, assigned' list. 

Word containing peripheral remotely associated 

with present input device. 

Position of job description. 



O 



Entered at (1) when first none separator in statements is an integer. 

Exit when statements translation is finished. 

Exit to error routine. 

Exit to error routine via any subroutine used. 
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ITotes, 



i) 



(n) (separator) (Title) (newline) 

On being read ,this title is chodied against all olements in the'here.not 

assigned* list of docxaaent titles, if in list then is entered in the list 

of documents associated with this incomplete job. 

If not in but, then is entered in the'not here assigned list. 



*here , not assigned * list 



O 



Words 0-9 







Word 10.0 


= bits 


18-28 


Word 10.4 


= 




Word 11.0 


= bits 


23-3 




bit 





11.4 


= bits 


10-18 


*Not here , 


assigned ' 


list 


Words 0-9 


_ 




Word 10.0 


= 




Word 10.4 


=: 




Y/ord 11.4 


= 




Incomplete 


job list 





Title. 

compiler name ( if compiler document) 

(if data document) 
link with next title in list. 
Position of this document on tape. 

»' '» " »♦ in store. 

1 if no input tape, 
O otherwise. 

No of blocks in this document. 



Title. 

Position of job reading this document. 

Link with next title in list . 

<n) - input no of this document. 



If compiler dociment. 
Word 0-9 = 



Word 10.0 



Y/ord 10.4 
Word 11.0 



Word 11,0 
Word 11.4 



= bit 0-3 

4-9 
10-18 
19 
20-23 



Title. 

(n) no of input document. 

Type of compiler. 

No of blocks in this dociment. 



= bits 1 - o = 



identifies = * 04. 

link with next title connected to this 

job. 

1,1 if document on dump tape. 

1,0 input tape, 

0,0 not on tape, 

= bits 23 - 3 = position of document on tape, 
= = leading block address. 
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j'lotes. (continued) 

Data document. 

As compiler document 

except a) no compiler used - word 10, O bits 4-9=0 
b) identifies word 10.0 bit 20-23= * 10. 
Gives Error if input switches no set on reading this format. 

2) <n) (separator) (peripheral) ( separator) (ni)( separator) (BLOCKS) (Lines (nev/line). 

Put entry in output section. 

Gives eri-or if a) incorrect format. 

b) pei-ipheral tape unknown. 

c) n > 16. 

3) (n) (separator) TAPE( separator) FIlEE/(peripheral)(separator(ra) (separator) 

Blocks Lines ( separator) ( Title) (newline 
Forms entry in incomplete job list. 

Words 0-9 = = Title. 

Word 10.0 = bits 0-3 = No of document (n) 

bits 4~7 = type of peripheral. 

20-33 = Identifies - * 54. 

11.0 = = (m) no of blocks to be printed. 



(^^ Gives error if a) n > I6, 

b) peripheral unlcnown. 

c) more than 80 character in title. 



4) 



(n) ( separator) TAPE(separator)(b)/(peripheral)(separator) (ra)Blocks Lines (Title 



As (3) plus word 11. 4 = (b) 
Gives error if b> 5000. 
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W i-\ix-pose. To interpret statements beginning "COPY. 

a) COPY TAPE , (b), (title) 

b) COPY TAPE FREE , (title) 

Mo of Instructions. 



O 



t f 



Cross 


Referenc 


E£' 


(30) 




(2/681) 


i?A) 


= 


(1/681) 


C32) 


= 


( 1/620) 


<33) 


= 


(1/600) 


(34) 


= 


( 1/683) 


<35) 


= 


(1/692) 


C36) 


= 


(1/682) 


C37) 


=: 


(2/685) 


(38) 


=: 


(I/621) 


^39) 


= 


(1/690) 


140) 


= 


(2/683) 


Oonnections. 





Routine '*Find next character >^ 20** 
Routine ' 'Get next n characters' ' 
Error Routine. 

Routine' 'Get next character" 
Routine "Read integer' ' 
Routine* 'Ask for space" 
Routine"Read and Store Title" 
Routine' 'Order and move tape deck*' 
Routine "Translate next line" 
Routine "Enter incomplete job list. 



t f 



Enter at (1) with statement beginning COPY. 

:>3xit a) to translation of newline. 

Exit b) to Error Routine. 

Kxit to error routine via any subroutine used. 



I fetes . 

1). COPY (separator) TAPE ( separator) (b)( separator) (Title), 

liacomplete job list entry. 



ViTords 0-9 = 

Word 10.0 = bits 30,23 



bits 13-0 



= Title, 

= identifier = * 34 

= (b) 



O 



Gives error if a) b > 5000. 

b) incorrect format. 

c) more than 80 characters in Title. 



3) 



COPY (separator) TAPE (separator) FREE separator (Title) 

as 1). 

but identifies = * 44 

and word 11,0 = 0. 
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.1606 » 



?urposG. 



Translate Lines beginning * 'STORE." 



No of instructions. 



O 



ross References. 



(30) 



(37/619) 



^51) 


= 


( 1/600) 


32) 


= 


(1/680) 


^33) 


s 


(1/683) 


34) 


= 


(2/684) 


^33) 


s= 


(2/619) 


(36) 


= 


(1/621) 


C37) 


= 


(21/619) 


i38) 


= 


( 1/616) 


<39) 


= 


(50/619) 


{40) 


— 


( 1/620) 


"jonnections. 





No of blocks allowed to be called 

for. 

**Get next character'' 

Routine'* Look for separator'' 

* 'Read integer' ' 

* ' Read until newline ' ' 

position of job description. 

Next line. 

Marker - no dump tape. 

Routine to Abandon job. 

No of free blocks. 

Error Routine, 



«nter at (1) with statement begining STOR, 
iixit a) 



b) 
c) 

d) 



To Translate next line. 



To abandon job and disengage reader 
v/hen no tapes. 



Exit to error routine via any subroutine used. 



Kotes, 



O 



i.) STORE ( separator) (m)( separator) BLOCKS. 

Enters (ra) in v/ord 3.4 bits 12 ~ 23 of incomplete Job entry. 

Gives Error if m > 220 (normally). 

a) If no tapes on machine then care must be taken so that the machine does not 
become flooded with input well. And then is not sufficient space for execution 
of jobs. This is achieved by having active and passive sections of store. 
The size of the active store is the execution space of the largest job in 
the machine . This is increased if a larger job comes in and there is sufficient 
free space, if a job is too large then it is refused entry to the machine. 
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"urpose . Read statements beginning PARAMETERS, 



o 



.0 of Instructions. 



28. 



'jross Reference s . 



30) 


= 


(2/619) 


= 


Positio 


31) 


= 


(1/681) 


= 


Routine 


32) 


= 


(2/681) 


= 


Routine 


34) 


= 


(1/620) 


= 


Error 


35) 


=: 


( 1/600) 


= 


Routine 


36) 


= 


(1/621) 


= 


Routine 



= Position of job description. 

Gfet next n characters. 
Find beginning of title. 
Routine . 

Get next character. 
Translate next line. 



O 



Connections v/ith other routine. 



Knter at 1) From Translation of Next Line (R62I) 

when find line begining PARA. 



ji'xit a) 
b) 
c) 

Sxit d) 



To Error Routine. 



On completion of Translation. 



Notes. 



Statements of form PARAMETER ( separator) *[upto 8 octal digits ] (separator) 
The parameters is stored in word 4.4 of description. 

Give ERROR if a) Wrong format. 

b) Too many octal digits. 

c) Letters in middle of octal digits. 



16oJ 



O 



r6o8„ 



jT^irpose, 



Rfiad ntat.ftmnntB bficinnlnjj "EXECUTION ' 'oi- "COMPUTING' %i,e. 



a) Execution , p. q 

b) COJilPUTING " 

p , q is a fixed point decimal mumber. 



HOURS / MIITOTES / SECONDS. 
» » « t J t 



Jross - References, 



O 



Oo) 


(1/681) 


(31) = 


( 1/620) 


32) 


<i/6oo) 


(33) 


(2/684) 


'34) = 


0.4(1/619) 


i35> 


(1/621) 


Connections, 





Routine Read next n character." 

Error Routine. 

Get next character. 

Routine ' 'Read until nev/line character. 

Position of job description. 

Routine **Translate next line** 



;<;nter at (1) with word statement begining EXEC or COIiflPUTIN. 

:>:xit to Translate next line, 

isxit to Error Routine, 

.Jxit to Er3X)r Routine via any of the subroutines. 



jotes. 



o 



1,) 



'O 



Execution (separator) p.q (separator) 
p,q is a fixed point decimal number. 



HOURS 

MINUTES 
SECONDS. 



This number is translated into seconds. And stored 
in half word 6,0 of incomplete job description. 

Errors a) Incorrect format. 

b) Letters in middle of integers. 

HOURS 
COMPUTING (separator) p.q (separator) MINUTES 

SECONDS. 

As (1) , except nimber is stored in halfword 6,4 



1.9.64 



a6oQ . 

Purpose . Re - entry to input master from peripheral routines. 

Routine is entered when ***, end of tape or end of tape 
(^^ buffer or peripheral fault, are shown on a peripheral. 

K o of Instructions ^ 
cross References. 



1609,1 



O 



o 



C30) 


= (3/697) = 


C31) 


= : 


<32) 


=0.6(1/620): 


<33) 


= 0.4 


<34) 


= 1.4 


<35) 


= <5/20l) : 


C36) 


= (66/599) = 


^:37) 


= 16/619 


<38) 


= (17/619) = 


<39) 


= (I/3I8) 


{40) 


= ( 1/312) 


(48) 


= (I/622) = 


<5o> 


= (50/599) = 


(51) 


= (51/599) = 


(52) 


= (20/619) : 


(53) 


= (1/202) : 


C54) 


= (10/619) : 


C56) 


= 2(5/502) = 


<58) 


= (14/619) ■ 


(59) 


= (I/6I9) • 


<6o) 


= (I/6II) 


<6i) 


= (5/619) 


(62) 


= (6/619) 


^63) 


= (2/621) 


(64) 


= (64/599) 


(65) 


= ( 1/610) 


(66) 


= (2/206) 


(67) 


= (20/502) 


<68) 


= (2/5^2) 


(69) 


=0.1(5/568) 


(70) 


= (21/502) 


(71) 


= (1/627) 


(72) 


= (12/619) 


<73> 


= (65/599) 


(74) 


= (21/502) 


(75) 


= (5/568) 


(76) 


= 1(5/613) 


connections. 


Enter 


at (1) E 

Y 


Exit 


a) 




b) 




c) 



Recognize a peripheral. 

Value of M in R502 on entry which 

indicates length of input /output complete. 

Routine to deal with peripheral faults. 

value of M which indicates *** 

Value of M which indicates end of tape. 

Restart position, 

V store address 

Block label of current input block, 

P. A, R, value of current input block. 



Routine' * free a peripheral" 

Constant. 

Constant. 

Half word shov/ing state of peripheral. 

Program scan. 

No of blocks in present document being input. 

Routine to restart peripheral on reading ***? 

Store for Position when the current document 

began in current input block(if did not 

begin in block then = 8.0.) 

Jmarker 7* O if J document being entered. 

Routine to process Compiler or Data 

Heading' ' 

Get next character - position of next character, 

' ' - no of characters in record. 
Routine "Translate next line" 
Constant, 
Routine "to start peripheral reading 

next docujnent" 
Enter S.E»R, in queue. 
Where to go if peripheral fails. 
Routine ''start reading from a peripheral. 
Marker to show used to read in binary. 
Marker to show next to be read in 

non-parity checked binary. 
Allocate to nev/ buffer and start input disposer. 
Copy of (20/619) showing how present 
input document should be read. 
End of Input buffer. 



bl04 for non - parity check. 
bl03 " '» »» " 



From R502 when something has happened on a peripheral 
with bioo = start of peripheral working space, and this 
working space is set up as shown in the notes. 



rpo program Scan 

TO read tapes in binary 

TO translate the beginning of a document. 



1.9.64 



o 



o 



o 



1609. 3 

■•Totes. 



There are eleven states of entry to this routine, these are listed 
and the action taken is 'shown below. 

1„ Peripheral fault, - This exits immediately from this routine, 

A. End of tape - this means that end of tape has occurred 

without a tenainating sequence: there are three 
types of action :- 

a> if last terminator read was E read next tape in binary 

b> " *' " " '^B.F then read next 

tape in inteimal code. 

c) if last terminator read was A,C,T,Z, then expect 

next tape to begin with a teiminator. 

X^ End of buffer. - gives a new buffer to the peripheral and then 

carries out any neccossary translation on the block 
just input. Activates Input Disposer if neccessary 

- ***A. - Abandon document. ~ abandons the current document, 

does not disengage the reader, 

V .i!*«B, - Do not dis-;rgage reader, read in binary until end 

of tape, if end of tape, read next tape in internal code. 

' ''***C - Do not disengage reader, - end of document. 

Read next document on same piece of tape. 

;!)***E _ jto not disengage reader, read in binary get end of 

tape or an ending sequence. 

«)***P - Do not disengage reader - road without parity check 

until reads an end of document terminator 
le ***Z,A n C 

''^)***T - Disengage reader, do not end document if document 

began in this block, then carry out any translation needed, 

{..1)***Z - Disengage reader end of document, if document began in this 

block then carry out any translation or storage of titles 
needed. Also do any end of document processing necessary. 



1.9.64 



o 



o 



Peripheral Storage Space I 609, 3 

bloo = address of head of storage space 

= V store addfGss of peripheral (less * 6) 

= Reason why returning to Input narker Routine (see502) 

= Beginning of buffer (less * 7 ) 

= End of buffer /O, 4. (less * 7 ). -normally will 
fill buffer and then set next half word zero. 

= Next character address in store in main store block. 

= End of store + 0.4 (less * 7 ) 
bits 23-12 = * 44667 
bits 11-0. end address within block. 

= Address of buffer which peripheral is 
going to write to next . (less * 7 ) 

= Address in buffer which P.E.R. is going to 
read firom next ( less * 7 ) 

= Address in store reserved for next separator (less * 7 ) 
(O if recoi-d not started) 

= Reason why peripheral has stopped. 

= Address of code conversion taken in use. 
(I.s. bits give shift,) 

= Last Joins characters - each - *, 

= Count of parity faults since last entry to (I/502) 
Is. bit = 1 if reader to stop on parity faults 

= O otherwise, 

1.9.64 



(68/599) 


= 50 


(66) 


= 0.4 


(60) 


= 1.0 


<6i) 


= 1.4 


(64) 


= 2.0 


(65) 


= 2,4 


C62) 


= 3.0 


(67) 


= 3.4 


(56) 


= 4.0 


151) 


= 4.4 


(52) 


= 5.0 


(50) 


= 5.4 


<33) 


= 6.0 



o 
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; i6lo 

f~^ Purpose Entered when the peripheral is engaged by the operator 
•yo of Instructions 



cross References 

(30) = (5/201) = Re-entry point 

(33) = (20/619) = Peripheral marker word 

(33) = ( 14/619) = Where docviment begins in block 

(34) = (10/619) = No of blocks in current document 

(35) = (5/568) = Input table 

(36) = (2/502) = Entry to start reading 

(38) = (1/626) = Put input block onto input stream 
(^3) = (2/626) = Acquire another input block, 

(45) = (6/999) 

(64) = (64599) = V/here next character from peripheral to be stored 

(66) = (2/248) = Write one half word into block 

(67) = (2/697) = Recognize peripheral 

(68) = (1/609) = Return address. 

(69) = (68/599) = V- store address. 

Connections 

3nter at (1) with blOO = private store of peripheral. 

OtSxit to (1/502) to read next tape in binary or (^2. j ^ d'Z j , _ 

internal code into a new area of store. 
Exit to (5/502) to read next tape as before into the same area 
of store. 

Notes 

i. On entry the routine first tests if the peripheral was 

disengaged by the operator, if so it continues to read in 
the same mode into the same area of store 

2. The only ways that the machine will disengage the peripheral 
are :- A) Tape ends without terminating character 
b) Tape ends with **'!'Z, 

d) " » » • ♦ «**F. 

a) The machine normally expects the next tape to begin with 
*** unless the last main terminator read was F, B or E. 

B expects next tape to be read in binary, F and B use end 
of tape as end of document, thus the next tape will be 
read in internal code 

b) Read in internal code into new area of store 

c) Read in internal code same area of store 

d) Read in binary into same area of store. 



o 
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ii6ll. 

V_y Purpose . 



Routine entered when end of a compilGr or data dociment is found. 



No of Instructions. 2I. 
r Jross References . 



C30) 




(2/697) 


(3-1-) 


= 


(4/619) 


C32) 


= 


(14/619) 


<33) 


= 


(10/619) 


(34) 


= 


(1/2C2) 


(35) 


= 


(41/619) 


(64) 


= 


(64/599) 


C36) 


= 


(5/20I) 


(37) 


= 


(3/619) 


(38) 


= 


(2/619) 


C39) 


= 


(49/619) 


<40) 


= 


(I/626) 


141) 


::: 


(4/613) 


Connections. 



o 



Identify peripheral 

Position of buffer block 

Identifier of current input block 

No of blocks in current document 

Program Scan 

Head of list* 'hero not on tape" 

Position of last character read 

Re-entry address 

Job marker 

Position of current job marker. 

Head of complete job list. 

Put block onto input stream; 



renter at (1) with blOO = peripheral private store, 
Zicit to program scan. 



:;fotes. 



This routine is entered when end of compiler or data 
document is reached. It puts the title of the document 
onto the" here not on tape* 'list, and if the 
document is part of a job document, it updates the 
position of the end of this. Also ,if the complete 
job list is empty, it puts this document onto tape 
immediately without v/aiting for block to be filled. 
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O 



o 



a5i3. 
Purpose. 
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Start of day routine - Peripherals. At ''start of day*' 
Operator must feed in message saying "peripherals A,B,C, 
are working, rest are not working '- This operates this 
routine. 



No of Instructions. 



Cross References. 



O 



<30) 
t3l) 
(32) 
(33) 
<34) 
C35) 


= 


(I/630) 
(20/619) 


Connections, 


Enter 


1: 


► - F 


i^lxit. 


a 


- 


Notes, 


\ 





1) 



2) 



Routine - 'Acquire one block. * 

Storage for* 'number of peripheral" 

Head of list of storage space per peripheral. 

" " " " V- Store addresses = : 
Routine '50I' to set up private store. 
Program Scan. 



From Operators Request saying. 

'peripherals A,B,C, Working, rest not working' 
Program scan on completion of routine 



Operators request must set bit I8 
of the peripheral table 

= 1 if peripheral in use 

= O if not in use 
Operators request which says ' * activate a new 
peripheral - must count peripherals engaged, and 
enter in 'no of peripherals engaged marker* 
and must set'activQ bit* (note 1) of this 
peripheral. 



1.9.64 
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o 



o 



purpose, 

TO deal -v/ith the end of a job document, 
cross References . 

(30) = (2/619) = position of current description. 

(31) = 10 = Maximum computing tine for a short 

Job in seconds. 

(32) = 200 = Minimum execution time for a 

big Job 

(33) = (1/619) = J marker. 

(34) = (1/202) = Program Scan 

(35) = (16/619) 

(36) = (1/318) 

(37) = (1/312) 

(38) = (64/599) 
(5) = (5/637) 



connections. 

Entered at (1) from R624 on finding a partial separator under such 

circumstances as to indicate the end of the Job document. 

Exit to program Scan. 

Hotes. 

1. ■ Forms the type of job currently being input the basic 

rules are that a job is 'short*if computing time < 10 sees, 
a job is 'tape * if uses tape 
a job is 'long* if execution time > 2OO sees. 

2) These types are tape - type 1 

short - type 2 
long - type 3 

3, Initially type of job and priority are set equal. 

1.9.64 



O 



o 



i§M.'' 



Purpose. 



I6I4.I 



to form procossGd job description of any jobs 
that are completely in tho machine. 



No of instructions ,- 110 
Cross Reference s , 



O 



(30) = 

<3l) = 

C32) = 

<33) = 

<34) = 

135) = 

(36) = 

<37> = 

(38) = 

C39) = 

C40) = 

<4-''-) = 

(43) = 

<43> = 

444) = 

\45) = 

{46) = 

C47> = 

{48) = 



(5/201 ) 

(35/619) 

(2i/6lg) 

(1/202) 

(52/619) 

(8/619) 

(2/630) 

(3/203) 

(4O/6I9) 

(I/3I8) 

(I/3I2) 

(2/626) 

(i/694) 

(I/625) 

(3/626) 

(3/627) 

(49/619) 

0.4(48/619) 

1(5/613) 



Rc-enty Address 

Head of incomplete job list. 

Marker word (sub. store) 

Prograra Scan 

T/orking space-holds position of current job document 

Head of input stream 

Find block 

Block status directory. 

Position where next entry is to be stored 

Call to cores 

Set P.A.Rs. 

Acqui.re another input block 

Give back space 

Deal with slash docianents 

Put block onto input stream 

Activate R699 " Input disposer. 

Complete job list 



Connections, 



Motes. 



3- 



Enter at (1) from R628 via S.E.R, queue. 
Exit a) to Program if no more complete jobs in machine. 
Exit b) to R699 via S.E.R. queue if some blocks ready 
to go onto input tajjc. 



bit 2 of subsidiary store marker word = 1 if this routine is active, 
or there is an entry in tho slow S.E.R queue for it. 

Routine tests if there are any complete jobs v/aiting 
to have processed job description formed. Does this 
by testing bit O of word 4 of incomplete job entry. 

Processed job description are stored exclusively in 
input stream o , begining in a new 64 block each time. 
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O 



3614.2 



Procossod Job description - each item llnkf:?rj irs word 1.0.4 
First section, words O ~ .1.2bO 

v/ords 0-9,4 ~ Title of job. 

word 10.4 - Link to next title 

word 11.4 bits 12-23 - Title identifies 

bits 3-12 - No of titles in machine 

Second section word 12,4 - 24.4 



word 12.4-14,4 - A direct copy of job entry in main store. 

V_y 12,4(0), bit 0=1 if unusual job. 

O otherwise 

bit 1=1 job document entered on a remain device, 

bits23-2 = link with next entry in complete 
job list in main store. 

word 13.0,(0,4), bits 0-3 = type of output peripheral, 

4-11 = amount of output in blocks, 

12-23 -■ position of leading block of job on tape, 

v/ord 13.4(1.0), bit o = 1 if job on tape 

otherv/ise, ie. no input tape, 

bit 1 

bit 2 

bits 3-7 Input stream of job doctanent. 

bits 8-23 Position of processed job description 
/ "^ on tape or in store 



1.9.64 



'^l yocessed job description , 



Second section (continued,) 



16.14,3 



•sford 14(1.4) = bit O : 

bit 1 

bit 3 : 

bit 3 : 

bits 4-6 : 
bits 7"11 : 

bits 15-17: 
bits 18-2,3: 

bit 

bit 1 : 

bit 3 : 

bits 3-10 : 
bits 11-23: 



O 



word 14.4(2.0) 



= 1 i.e private tapes are needed 
= O othei-v/ise. 

= 1 if archive tapes are needed 
= O otherwise. 

= 1 if archive tapes are used (used by spare alloc.) 
= otherv/ise. 

= 1 if long job. 
= otherwise. 

priority of job (high, lov/ medivim) 

Numbers of tape miits needed at 
beginning of job. 

Type (short, long, tape.) 

Coapilcr 

= 2 On Active list B, 
= O otherwise. 

= 1 On active list A. 
= o otherwise, 

= 1 if sv/ing overfrora. 
= O otherwise. 

Archive tape identifier. 

job Identifier. 
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Processed job description^ 



1614,4 



jjrard 15 (2,4) : bit o-J 

bits 8-11 
bits la-23 
7/0 rd 15.4 (3.0): bits 0-33 
■rord 16 (3.4) bits 0-7 

bits 8-11 

bits 12-15 
bits 16-19 
bits 3C-23. 
bit 23 
?/ord 16.4(4.0) bit o 



O 



bits 23-1 



no of input sections needed in 
processed job description, 

no of archive docijments called for, 

no of blocks called for. 

Time in seconds. 

no of tape sections needed in 
processed job description. 

no of documents not yet entered 

(= O when put on complete job list) 

no of self doctjiaent. 

Decks. 



unused . 



= Tape marker. 

= 1 when all document to this job 
are on the input tape , and 
it is waiting to have the processed 
job description formed. 

= position of title of job. 



v-:-ord i7.o<4,4> 

STord 17.4(5.0) 

TOrd 18.0(5.4) 

7/ords 18,4(6.0) 
to 22.0 (9.4) 

v/ord 22.4(10.0) 



viovd 23.0.(10.4) 



oord 23.4 (11.0). bit O 



O 



bit 8-10 
bits 11-23, 



- 1 



= 



v,'ord 24,0 (11,4 



parameter. 
Execution time. 
Computing time. 
Outputs. 

Linli to block if there are more 
than 7 output streams. 
(=0 if otherv/ise) 

Linli to next entry in processed 
job description. 

when job document has 
been put onto the input 
tape. 

otherwise. 

position in block 

position on tape, 

linl'; with rest of jobs in 
incoaiplete list. 
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R615 . 

^ j'urpo se . 



tlo of 


Instructions. 


cross 


References, 


(30): 


^ 




(31) 


= 




(33) 


= 




(33) 


= 




(34) 


= 




(35) 


= 




(36) 


= 




(37) 


= 




(38) 


= 




(44) 


= 


(1/502) 


(45) 


:= 


(1/613) 


(46) 


= 




(47) 


= 




(48) 


= 




(49) 


=: 




(50) 


=1 


6/621 










To l/jra.nGl.at'.e statotaoti'ts beginning * 



Get next character, 

Hartran marker 

Hartran compiler recognition in bits I8.23, 

Position of job description. 

Alternative entry to End of job docutaent. 

Read integer. 

Get nejrt on characters. 

Error Routine. 

Binary switch, sometiiaes. 

Entry to R502 

Routine to enter complete job list. 

program Scan, 

job marker. 

Routine' find first non-separator. 

Alternative entry to Next List. 
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Purpose - TrnplGinfint ***a. 
( ) Ko of Instructions . 

".ross References . 

C3*^^ ~ = Beginning marker, 

^3^^ - = Position of Peripheral Rivets Store, 

C32) = = Program Scan 

<33) = = Routine to free peripheral x. 

v34^ = = J marker 

v35) = = Operators Routine. 

(3^y = = Buffer blocic which holds title of 

compiler and Data dociiments during 
input of the documents. 

C37) = = Routine to give back block of store. 

i3^y = = Position of Job description. 

"39) = = Head of 'not here, assigned' 

list -(10.4) 



Tonnections- 

O Winter at (1) from R6ai upon finding a line beginning 
Corap, with bloo = peripheral private store. 

;nter at (3) from r6i8 upon finding a simple Data statement. 

;',x4t.(a) to r6o8. on finding a line beginning computation. 

lOsit (b) to read rest of docxment. 

^vnter at <5) from assembly routine with bloO = beginning 

of document. (ie position of 1st internal separator) 

>"xit to, with blOO = position of 13 word block 
allocated to this dociment. 
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iR6i7..i 



Wf^ 



O 



Purpose, 



Read statements begianing ' "ccanpiier 



,»t 



HO of Instructions, 



C ross Relers nces^ ^i • 



(30)- = (1/681) 



O 



^31) 
<32) • 


= 


(1/692) • 
• (4/619) 


<33) 
^■34> 
<35) 
<36) 
<37) 
C38) 

<39) 

(40) 


= 


(2/608) 

(36/619) 

(2/681) 

(2/688) 

(1/684) 

(I/619) 

(I/682) 

(I/621) 


C4l> 


= 


(2/619) 


(42.) 


= 


(3/619) 


C43)' 
<44> 
C45) 
<46> 

<47) 
(48) 


= 


(5/619) 
(6/619) 

(7/619) 
<13/619> 
(20/619) 
(I/627) 


<49) 
C50) 


= 


(I/611) 
(I/682) 


connections 






Entered at (1) 
Entered at (5) 
Entered, at (3) 
Exit to r611 
Exit to r6o8 
Exit to R202 






Exit to R627 



Routine ''Read next n characters into Bl02* ' 

when BI05 = n. 
Routine **ask for 12 word block''. 
Store used, shov/s position of buffer 12 vrord 

block. 
Routine. to translate line beginning "computation** 
Head of list of compilers. 

Routine find beginning of Title or compiler name. 
Routine ' ' form checksum of compiler name' ' 
Routine ** search list of half words** 
Job marker 5^ O if reading- job document. 
''Routine" Read and store title". 
Alternative entry to R624 to find end of 

docvment, 
position of job description now being 
entered on this peripheral. 
Used to show if present document has 
been defuried by a self statement. 
position of last character read 
No of characters in present separator. 
Position sub store private store 
position of last separator read. 
Position of peripheral .,Taarker \7ord 
Put current block onto stream 
and get new block and contains reader. 
Routine to deal with end of document. 
Read integer. 



O 



from R62I on reading COMP. 

from R63I on reading USE 

from r6i8 on reading data, 
if document begins and end in same block 
if heading is not compiler 
R202 .(program Scan) if. docum.ent opens more than 
one block, 

to put input block into input stream 
if new input block needed. 
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>?3tes. 



Ir617,3 



o 



If compile!' or data docvmient then forms the following block 
of infojmatlon. 



O 



words. 


Oc9.4 


s 


word 


io„o. 


= bits 30-33 


Word 


10,4 


bits 14-18 
bits 4-13 
bits 0-3 
= bits 2-33 
bit 1 


Word 


11.0 


bit 
= bits 12-32 

or 
bits 11-23 

bits 8-11 

bits 0-7 


Word 


11.4 


= bits 11-23 
bits 10 
bit 9 
bits 0-8 



= Title 

= type of entry =*04 compiler 

*1 Data. 
=5 Input peripheral streaai, 
= compiler identifier. 
= no of input document. 
= Link to next document 
= 1 if last document in processed 
job description (set in R614) 

= Position of docviment in store 
if not on tape ( block label.) 

= Position of dociiment on 

input tape (block label). 
= position of beginning of dociment 

in block 
= Archive tape no if document on 

archive tape. 
= position of leading block of 

document on tape, or in store. 
= 1 if document on archive tape 

O otherwise 
= 1 if document on input tape 

O othei-wise. 
= NO of blocks in document 



Data / documents. 

All data/ documents with the same title are read in 

and the documents are treated as a normal simple 

document. 



o 



Data / List. 
V/ords 0-9o4 
word 10.0 



V/ord 
word 



10.4. 
11.0. 



Word 11.4 



= Title of document 

= No of elements needed, ie. total no 
of documents v/ith title shov/n in O-9.4 
This is initially to * 2 and is reset 
to (n) on reading Data / (n) END. 

Link with data / list 

No of elements entered, (regards document 
as fully in when word 11,0= word 10. O. 

Llnlt with rest of continuation document. 



Document 12 word block - as data docijment. 
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Purpose . Translate Lines beginning 'DATA* 
'^ o of Instructions . 
Cross References. 



O 



(30) 


= 


(3i) 


= 


(32) 


= 


(33) 


= 


(34) 


=: 


(35) 


= 


(36) 


= 


<37) 


= 


(38) 


= 


(39) 


= 


(40) 


rs 


(41) 


=; 


(43) 


= 


(44) 


— 


Connections, 




■intered 


at 


teit 


To 


■Sxit 





(2/631) 
(I/693) 
(4/619) 

(3/617) 
(I/683) 

(I/619) 
(1/685) 
(I/600) 
(1/681) 
(1/630) 

(3/619) 
(I/627) 
( 1/682) 
(13/619) 



Routine Find beginning of title. 

Routine ask for 12 word block 

Position of buffer block b list 

Alternative entry to 'compiler* routine 

Routine 'Read integer into b 102, 

job marker. 

Routine * * Duplicate this block in buffer b. 

Get next character 

Routine "Read next on characters*'. 

Error Routine. 

End marker. 

Read main program. 

Routine "Road on store title." 

Separator at beginning of ciirrent record 



or 



to 



(1) from R62I on reading data 

(3/617) if normal data document 

( 1/637) If Data / doctmient 
( 1/620) Error routine. 



1.9.64 



O 



o 



o 



o 



1R61.9.1 

Purpose . - Constants and parameters associated with each peripheral. 
Associated with each peripheral. 

(1) = = Job marker 

^ O it job document is being input. 
= 1 if input section. 
= 2 if output section. 
= 3 if tape section. 

^^') = = Position of job description currently 

being input. 
C3) = = Self marker - used if there is 

a "self** statement within a job 

document, - also there is always 

an inplied * 'self "statement in 

the common job description 
C4> = = Position of buffer block used in 

Routines R617 and 618. when 

inputting compiler or Data document, 
(3) = = Re-start position- position of last character 

read 
v5) = = Re-start 2 - no of characters in record, 

C7J = = Restart 3 = (blOO- substore add for present 

peripheral), 
';8) = = Head of input stream 
.'9) = = Heraote - holds type of peripheral 

that this input device has been 

made remote to. 
{10) = = No of blocks in present document 

being input on this device. 
Cll) = = Last four characters input in previous 

input block (used when 

making sure that peripheral has 

stopped on *** and not ccc) 
U2) = = Store for (20) in 609. 
(13) = = Store word for position of the separator 

at the beginning of current line 

(also word in r6oo,) 
O-^y = = Position v/here current document 

began in current input block. 

if did not begin in current block - 1.0 
415) = = V - store address per peripheral. 
\l6) = = Current input block label. 

(Re - start 
{^7^ ~ - Block label used by input routines 

(*36 3603 AT moment) 



1,9.64 



Ir619,2 



O 



Associated with each input device, (cont.) 



20): 


bit 











bit 


1 






bit 


2 






bit 


3 






bit 


4 






bit 


5 






bit 


6 



bit 7 



bit 8 



if end of stateinGnts reached - set bj? r621,, vxtvd 

by r600« 
= 1 if this an end document - used in Data / n documents 
= Integer switch - used in R604 
- begiiming marker, = 1 if document begins 

in current input block 
= 1 if peripheral engaged. 
= 1 if operators input 

= 1 if next tape to be read in non - parity- 
checked binary, 
= 1 if new input block needed in, previous 
document ended in last 64 word block, 
so entire input block was put onto 
tape - a new input buffer is 
needed before anything can be done 
with this device. 

Used by r6oo- 1 if next re-entry begins 
at the start of block, 
ie no re-entry points lor2 set 



O 



(20); 



bit 


Q 


bit 


10 


bit 


11 


bit 


13 


bit 
bit 
bit 
bit 


13 

16 


bit 
bit 


18 


bit 
bit 


19 
20 



bit 21 

bit 22 
bit 23 



1 
1 
1 
1 
1 
1 
1 
1 
1 
1 

1 
1 



8 t 
t I 
t t 
> t 
1 I 
» t 



if Hartan being input. (R615) 
if last directive was A, 

B 

C 

E 

F 

P 

T 

Z 

if previous tape ended without a 
terminator, 

if peripheral disabled, 
if peripheral needs reengaging when 
buffer space has been re-al3.ocated (operators 
request has said - disable on input device- 
must re-allocate buffer space,), 
if next tape must begin with ***, 
(only set if bit I8 is also 

set, 
if next tape is to be read 

in parity directed binary, 
if *** read in previous record, 
(used by r6oo) 



O 



1.9.64 



Iri6i9.3 



O 



l<^neral words - not particular to each devico . 



O 



O 



1 1 



^3*^) - = word to bo stored in register 10,0 of 12 word block 

(31) = = »» »» It It «t J^J^ Q it It t t» 

(33) = t= » • «• It tf tl ^^' tl t! I 

<33) = = Head of » 'here ~ not assigned* ' list 

(34) = = Head of 'assigned - not here* list. 
(35^ = = Head of incomplete job list. 

(36) = = Head of list of compiler, 

(37) = = No of blocks allowed to be called 

for in machine. - normally - if 
there is a dimp tape, this v/ill be 
220, however if there is no diunp , -' 
tape, then this will depend on tiis 
other job at present in the machine, 
(see R607 * •store"), 

(3") = = Store word used in R624. 

O9) = = Store word showing position of block that 

has just been put onto magnetic tape 
by input disposal ( R699) used in R628. 

(40) = = Store word used in R603. 

(4^^ = = Head of "here not on input" list, 

(42) = = Current peripheral being processed 

(holds working space). 

(43) = = Position of next separator working 

space 
(44^ ~ = Position of last character read for r6oo 

(43^ = = Store word used in R628 

(46) = = Head of data / list, 

(47) - = No of peripherals. 
(4*^^ - = Store v/ord used in R6I4 

(49) =(12/652)=484*3504= iiead of compiler job list. 

(50) = 375*7 = No of free blocks 

(5^) = = T/hcre last processed job des, ended, 

(52) = = Store word 6I4, 

<53> = = Head of list of titles 

(54) = = store in 625 

(55) ~ = Head of operators request - OPS request 

(blOO in word 0,0,4 = beginning of request.) 
<3^) = = Beginning of current record 

(57^ - = No of titles in machine. 

(52) = = Position of first block of title on 

dimip tape. 



1.9.64 



o 



Ia6i9.4 



Sub store half - word (2I/6I9). in sub store 

bit 0=1 No dump tape 

bit 1 - 1 Input disposal active 

bit 3 = Peter warn active 

bit 3 = R64I active 

bit 4 = R6I4 active 



O 



1.9.64 



o 



rSzi 



o 



riH£P£££« ~ Translate the next lino of input. 
No of I nstrnction s „ 
Cross References „ 



<30) 

C33) 
<33) 

C34> 
C35) 
(3^) 
C37) 

C38) 

<39) 
(40) 

C4I) 

(43) 

^43) 
{44) 



Position of beginning of Record, 
No of characters in Title, 
atore vjord for blOO„ 
Restart store v/orcl J. 



» t 



i > 



Routine find beginning of Title 

Routine Error, 

List of peripherals 

Routine to enter S.E.R. in Queues. 

Opei-ators Input Routine, 

Program scan. 

Read next n characters. 

Get next character. 

Routine - Search table of half words. 



Connections. 



O 



'Alitor 



anter 



L-ixit, 



at 



at 



a) 



1) - having set positions of last character 
read and no of characters in record 
before entry. 

5) - normal er\try to routine to read the 
beginning of next record. 

if line beginning with unrecognizable character. 
[ie, (,),£,£,?,£,/. 3 



3-xit b) 
Scit c) 



if operators input - via S.E.R, queue. 
To routine to deal with heading 



Kotes, 



O 



Routine reads characters until finds first non-separator 
if integer,*, Xorj then Takes applicable action. Otherwise 
reads in next B characters and jumps to routine 
signified by there characters. 

Contains a Table , beginning at (4) of all possible 
characters that can read line. 



1<.9.64 



o 



I r6?,3 



'' -"nrpons. 

=:o disengage peripheral , 

.o of Instructions , 



O 



Cr oss References. 

.30) = (ao/619) 

C3I) = 
■32) = 



= Peripheral marker word 

= Private store of this peripheral, 

= Free this peripheral. 



O 



Connections . 



Enter at (1) to disengage peripheral, 

with bl09 = peripheral identifies. 



1.9.64 



i R623 



o 



s^. 



Pu rpose „ Translate lines beginning " SELF* * /'input' ♦, "output* ' 
xo of Instructions , 



!.ross References. 



::30) = <i/6i9) 



:3i) 
-32) 

33) 

t34) 
^35 > 

137> 



(1/630) 

(3/681) 
(1/600) 
(1/683) 
0.4(1/619) 

(1/621 ) 
(I/680) 



= J marker = 1 if Input switch 

= 3 if output. 
= Routine "Errors*' 

-- Routine ''find next non - separators'* 
= Get next character, 
= Routine * ' Read integer' ' 
= List - position of job document 
at present being read in. 
= Itoutine ' 'Next Line. ' ' 
= Routine *'Test for separator" 



■ mnections. 



O 



;;ater at (1) statements beginning SELF, 

exits to Routine ''Translate next line'* R63I. 

Vuter at (2) statements beginning INPUT, 
exit as (1), 

•alter at (3) statement beginning OUTPUT 
exit as (1) 



■j'otes. 



1) Expects statement SELF = (n) 

gives erroi' if incori'ect one word 
stores (n) in word 3,4 ,bits 13 to I5 

3) Input sets Job marker =1.0 (I/619) 

this indicates that input section is being read in. 
3) Output sets Job marker = 2.0. 



1.9.64 



O 



1 11634 



ijy2,. 



O 



I-urpo se . 

Entered when a peripheral becomes free or 
:■• program is completed^ It tests if there are any 
complete jobs. And if so, foi-ras the processed job 
■description and puts this into the input stream ready 
to go on tape, 

Jo of Instructions, 



Got another input block 

Pos. in next separator 

End of document 

Get another input block 

Peripheral marker word 

Call to cores 

Set PAR 

Read from peripheral 

Store word 

Beginning of current record 

Re-entry after I'eading 



O 



•"Jross 


References, 


;3o) 


— 


( 1/627) 


^3l) 


= 


(43/619) 


■32) 


= 


( 1/613) 


i33) 


= 


(2/626) 


<34) 


= 


(30/619) 


^35) 


= 


(I/3IC) 


(36) 


r= 


( 1/312) 


t37) 


s= 


(3/502) 


■:32) 


= 


(3^/619) 


(39) 


= 


(56/619) 


<4.0) 


= 


( 1/609) 


(4^) 


=: 


0.4(56/619) 


(43) 


^^ 


(2/600) 


r-onnections. 



Enter at (1) When n peripheral becomes free, or a 
job is completely in the machine. 



Exit. 



to program scan, when there are no 
more complete jobs to be dealt with 



:es„ 



This routine only chooses which job to deal 

with, and sets the relevant markers, it uses as 

subroutines R6I4 and R625. R6I4 forms the 

procGSSud Job description , and r6?<5 gets the 

necessary space, in an input stream, in 

which to fona this job description if no peripheral 

is free, Item R625 is the routine which abandons everything. 



O 



1.9.64 



i R62'', 



o 



O 



O 



rt.6 



i ^irpose. Allocate store for pcriphal 

This is a subroutine used by R6I4, it 

looks for a free peripheral and then takes enough 

store in this peripherals stream list as 

is needed hy R6i4„ 

To of Instructions . 



L'ross 


Refe 


renceSe 


30) 

31) 

(32) 


r: 


(20/619) 


^33) 

C34> 


= 




35) 


= 


(3/626) 


:i6) 

137) 

164) 

<3C) 


= 


(2/626) 
(64/399) 



No of periphei'als. 
Peripheral descriptive word. 
Alternative entry to R624 if no peripherals 
are disengaged. 

Position of private store of peripheral, 
Store word for position of processed 
job description in block 

Put present input block into stream list, but 
mark as '*taeing processed" 
Acquire another input block. 
Re"entry to RGI4 

Peripheral private store, beginning of buffer. 
Put present input block onto tape, but 
mark as ' ''waiting to go onto tape' ' 



i.;onnections. 






Enter 


at (1) 


v/ith bl03 = 


Exit 


(a) 
(b) 


to R634 

to R6i4 



no of consecntive blocks of 
64 woi-d blocks called for, 

if no peripherals are free 
v/hen sufficient space has 
been found. 



'.■^otes. 



This routine gets enough 64 vrord blocks of 
space for R6i4 to put a processed job 
description into. Each entr-y block of store 
needed is put onto The input stream, bit 
s marked as "being processed" , This 
prevents input disposal trying to put 
it onto magnetic tape. 



1.9.64 



\i<Bz6,l 



O 



o 



i.626. 



■Purpose. 



Input block full 

1) to ijut the present input block onto the stream list, 

mark as waiting to go on tape 
?,) to acquire a new input block. 

3) To jjut present input block onto stream list, 
mark as ' 'being p3X>cessed. (used by R625) 



i'umber of Instructions, 



Cross 


References, 


\30) 




(2/697) 


13I) 


= 


(2/630) 


\32) 


cs 


(G/619) 


33> 


S5 


(3/203) 


'34) 


= 


(I/630) 


'35) 


ss 


(I/3IC) 


;36) 


= 


(I/3I2) 


i37> 


=: 


(3/637) 


t32) 


= 


(5/613) 


:64) 


= 


(64/599) 


(39> 


= 


(5/201) 


■up) 


= 


( 1/999) 


Hi) 


= 


(2/999) 


<42) 


= 


(3/999) 


^K3) 


= 


(15/239) 


\44) 


— 


(1/213) 


Connec 


itions. 


:]nter 


at 


(1) To pu 



Recognize peripheral. 

Find block. 

Reads of peripheral streams. 

Status directory 

Aquire one block 

Call to cores 

Update par's 



To put current input block on peripheral x at the head 
of the input stream marked as ''waiting to go on tape*' 
enter with bloo = peripheral x working space 
bllO ■- linli. 

isxit at (£-) v/ith biOO = peripheral x working space. 

blOQ = peripheral x identifier 
blOl = status entry for head block. 

fiutei- at (2) TO acquire a new input block foi* peripheral x 

bloo - X working space 
bllo = link„ 



O 



Hxit at 



b) 



with 



blOO = peripheral x 
bl05 = block label. 
bl09 ~ stratus entry 

-block label in bits 22-12. 



..9.64 



|r636<,3 



O 



Enter at (3) t.o ijvic o\iJ.'.i.-Gnt Input block on peripheral 

X at the head of the input stream, mai-king 
it as' 'being processed**. 

blOO = peripheral private Gtoi'e, 

bllO " link. 



Notes, 



This i-outine is norraally entered at (1) or (2)! 
it is entered at (3) v/hen a processed Job 
description is overflowing into more than one 
page. 111 this case, the block must not be put 
onto tape until it has been filled by the 
job description. 



O 



1.9-^ 



o 



o 



a^2.» 



!u6;s7 



i'urpose. 



Buffer block full 

Entered at end of buffer block from 
input routine. Puts present buffer onto 
input stream list, updates necessai-'y 
constants and get a new buffer block. 



No of Insttjctions^ 



;ross References, 



O 



(30) = 

(31) = 
(33) = 



mi 



(64/599) 

(3/697) 

(11/619) 



(1/636) 



<34) 


:= 


(2/626) 


<35) 


= 


(16/619) 


(36) 


= 


(1/312) 


(37) 


= 


( 1/313) 


(38) 


= 


(0.1) 


<39) 


=: 


( 1/699) 


(40) 


= 


(2/206) 


(41) 


= 


(1/609) 


142) 


'~ 


(3/502) 


Conne 


ctions. 



position in private store 
Recognize peripheral. 
Store word, (per peripheral) to 
hold the last 4 chax-acters read 
in previous block (used to check 
for ***) 

Put input block onto input 
stream, mark as waiting. 
Acquire another input block. 
Ho of blocks in document currently being 
input , 

Periphei'al information word 
1 bit = 1 if input disposal active. 
Mask for (37). 
Input disposal, 
put S.E.R, in queue. 
Re-entry point to R6og 
Start rea-ding fi-oin a peripheral, 
(alternative entry) 



Enter at (1) from R609 with blOO - peripheral private store. 



Exit to sta.rt reading from 

peripheral ( 3/502) ~ May 
activate input disposal 



o 



1.9.64 



Ik620 



o 



.f>r>i 



o 



•"urpose. Entored firm, input disposal when a 
block has been put onto tape, 

do of Instructions, 



Cross Referencep. 



30) 


=: 


(41/619) 


31) 


zz 


(39/619) 


32) 


= 


(35/619) 


33) 


= 


(I/699) 


34> 


= 


(34/619) 


33) 


= 


(42/619) 


36) 


=s 


(1/687) 


37) 


= 


(I/694) 


33) 


= 


(33/619) 


39) 


= 


(46/619) 


40) 


= 


(46/620) 


41) 


= 


(1/633) 


^I^) 


= 


2(1/635) 


lonnections. 



Head of ' 'here, not on tape" list. 

Position where block has been put on tape. 

Incomplete job lifst head. 

Entry points to input disposal. 

Head of "not here-assigned' 'list. 

Store for blOl when searching. 

Test if title is element of a list. 

Give back free space„ 

Head of '*here not assigned" list. 

Head of data / 



Enter at (1) with blOO = identifier of block just put on tape 
and (31) = block label on tape where block has 

bsGn record&d. 



Exit to Input disposal when all information 

connected v/ith this block has been processed. 



Iotes„ 



Routine resets all leading block markers from 
correct block identifier to tape address. 



o 



:-^ 



Routine resets all relevant incomplete job entries to correct 
tape addresses, and puts each job on 
the complete job list if nessary„ 



3> 



Routine resets all I'elevant block addresses of 
document entered, and puts them on the 
coi'rect list. 



1.9064 



o 



o 



o 



ATLAS SCHEDULER 



12th FEBRUARY. 1 964- . 



u 



SCHEDULER ROUTINES 



R650 Enter job in execute list 

R65I Job assembly complete action 

R652 Scheduler parameters and tables 

R653 Set scheduling bits 

R654 Selection routine 

R655 End of job routine 

R656 Set up stream directory 

R657 Set new priority 

R659 Activate scheduler (fixed store routine) 

Rf60 Scheduler entry and exit 

R661 Active list selection routine 

R662 Enter job in active list 

R665 Semi-emergency entry to scheduler 

R664 Select assembly type documents 

R665 Job assembly routine 
R666 (r66, R766 
R8 66 and 

R996) Re-entry routine 

R667 Shift n places 

R668 Set up job size 

R67O Select document for assembly 

R67I Jind input well block 

R672 Remove / duplicate routine 

( ) R675 Assembly control routine 

^-^ R675 Document complete action 

R676 Prepare to read in 

R677 Return from read in 

R678 List job description 

R980 Compiler assembly 

R982 Find / free halted program 

R985 Tape assembly for execution jobs 

R984 Tape assembly for active list jobs 

R985 Obtain a free deck 



19th October, I964. 



o 



o 



o 



INDEX 
ROUTINE TITLES 

ROUTINE STARTING ADDRESSES 

ROUTINES 

SCHEDULER NOTES 

ROUTINES SPECIFICATIOMS 

FLOW DIAGRAJIS 

TABLES 



SCHEDULER NOTES 

o 

1. The scheduler routines occupy four blocks (*34a3i, *3437, 
♦3440 and *3441) and perform five main tasks. 

a, choose jobs for assembly and enter them in the active list, 

b, choose jobs for execution and set up execution directories 
with the appropriate time sharing bits set. 

c, assemble input documents and compiler in main store, 

d, control the assembly of magnetic tapes, 

e, allocate external priorities, 

3o To ensure only one branch of the scheduler is active at a time 
entry to it can only be made through r659„ 

3« Reentry addresses are roost important in the scheduler routines 
-and reentry routines (R66i,R666pR766 and-R866) 

which recover BlO0= BllO after non-equivaleace are provided in 
each block. Where possible modifications to a routine should go 
in the same block as the routine, 

4. R652 contains all scheduler parameter and label settings, 

5o To recompile feed in R§5a followed by the four scheduler tapes, 

6. There are groups of instructions at present in the scheduler 
( ") routines which may be incorporated at some future date 

''—^ but play no active part at present. 



o 



o 



JOB DESCRIPTION ENTRIES 

A progranmer's job description is processed by the input master routine 
into izh word entries and then expanded, when the job is assembled for 
execution, into 15^ word entries, 

1st ENTRY 



Words 



0-9.4 


= 


Job title 


10.0 


s 


spare 


10,4 


= 


link to next entry 


lloO 


= 


spare 


Il.4(g3»l2) 


S2 


title identifier 


(il°3) 


= 


after information 


12.0 


S 


spar© 


i2.4(23»a) 


ss 


active entry address 


(0) 


= 


if in job description assembly 


i3 


s 


job entry address 


i3.4°l5.o 


= 


spare 



2nd ENTRY 



D 



Words 0-2,0 a copy of job entry 

2«4"*^5 ~ further information not used by schedule 

These first two entries are standards other entries are 

JOB DOCUMENT ENTRY 



Words 



Word 



O9.4 
10 (23-20) 

(19=14) 

Ci3-4> 
(3=0) 

10.0(23) 

(22==2) 

(1) 

(0) 



= 1 



= 1 



document title 

entry type 

input stream type 

compiler identifier 

(0 if data, 5II if compiler not listed) 

number of input document 

if thi§ entry is last one in block 
(this bit is only set in the 12^ word entry) 
link to next entry 
spare 
if assembly type documsjit (set at assembly time) 



-O 



•^ o& « -^ » O^ 



o 



JOB DESCRIPTION ENTRIES CONTD, 



o 



word 


11.0 


m-iz) 


= 






or 


(a3»ii) 

(10-8) 
(7-0) 


= 




word 


11.4 


(a3"ia) 


» 






or 


(S3»ii) 

(10-9) 
(8-0) 


SS5 




word 


ia,o 


(ii-3) 


SOB 








(a) 


= 


1 






<i) 


fe 


1 






(0) 


ss 


1 


word 


ia.4 


.. 


^ 




word 


13.0 


(23-2) 
(1) 


s 








(0) 


™ 


1 


word 


13«4 


(as-ia) 


s 






or 


(23-11) 

(10-8) 

(7-0) 


3 




word 


14.0 




S 




word 


14.4 


(23) ■ 
(2a-ia) 

(lO-O) 


^ 


1 



word 



15.0 



block label of last document block 

tape block niimber of last dociment block if 

the doooment is on magnetic tape 

position in block where document begins 

archive tape nmabor 

(or if not on tape, 0,2 if on system input tape) 

block label of leading doemient block 

tape block namber of leading document block if 

the- document is on siagnetic tape» 

spare . 

nuifflber-of document blocks 

ax+b space in blocks required by job 

when it is being compiled 

count of number of blocks assembled 
if ;'docuffient refused space after being 
partially asseabled 
if doeumsffit being assembled 
if document-in main store 
spare 

job description address 
spar© 

if- next block to b© assembled isn't in store 
block label of next block to b© assembled 
next block om tape . to be assembled 
position in block where document begins 
archive tape number 
spare 

if space refused during assembly- 
block label of last block assembled 
block label of last but one block assembled 
spare 
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EXECUTION DIRECTORIES 



STATUS (|word entry) 



bit 



STORE 



bits 



SWITCH 
bit 



o 



(23) 

(11) 
(10) 

(9) 

(8-«) = 

(1) 

(0) 



= 1 



1 
i 
0/1, 

1 
1 



if halted for a block 
reasoja for halt 
if tapes used" 
if clearway job 

full recover / only recover if in sttpervisor 
link to next job 
if in supervisor 
if free to run 



(i word entry) 






(1) 

(0) 



1 

0/1 



niimber -of blocks reserved less one 

start of job area in block directory relative to 

start "Of block directory 

I'f not in processing mode 

clear new blocks / do not clear new blocks 



(|word entry) 



(23) = ■ 1 if branching 

(a2f°20) s location of dranp in dump block 

(I9) = i if compiling 

(18) = spare 

(17-15) s job type 

(14) S5 1 If dynamic tim©- shaving 

(I3) - 1 if own clock 

(12=7) - instructioa counter for sichedialing 

■(6"4) s job priority 

(S^S) = spare 

(l»o) s nsonitor description 



MONITOR (Iword entry) 



bit 



(23> 

(22) 

(21-12) 
(11=12) 
(1) 
(0) 



1 

i 



0/1 



■if in ©f f line trap 

if page loekdowa 

off line monitor descriptiosi 
■page nranber if lockdown trap 
■master process / no master process 

if waiting off line trap 
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COMPILER DIRECTORY ENTRIES 

Al (ll/agl "" h word entry) 

bits (a3"0) fs first four characters of compiler aanse 

A2 (13/291)" i -word ©atry) 

bits (Z^^O) s secoffld four characters of compiler name 

B (16/290 - I word emrty) 

bits (23-19) = a 

(18-11) s= b 

(it>»3) - compiler size 

(2) = 1 if comnsoK compiler 
(1) si if protected 

(0) ^ 1 if keep in store 

C (13/291) - i word entry) 
bit (23) ss -space 

(22-13) = compiler number 

(12-0) s position on library tape 

D (20/29I) - i word entry) 
bits (22-13) ^ space 

(12"0) s= position on dump tape 



O 



E (14/290 - i word' entry) 

bits (23-2) = address in store 
(1) si if assemble 
(0) ss space 

NOTE 

Working space allocated to a coapiler is AX + b 
where X s nusmber of blocks on document and 

A = 2 to the power - a if a - 0,1;, 3 or 3 and 

A =: 2 to the power ^f^-a if a s 23~13 
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PERIPHERAL ENTRIES 



PERIPHERAL SCHEDULER ENTRY (f word entry) 



o 



bit (S3) 
(22) 
(20) 
(19-15) 

(14-13) 
(12) 

(il-3> 

(2) 
(1) 
(0) 

STREAM DIRECTC3RY 

bit (23) 

(22-15) 

(H'-ii) 
(10-3) 

(2) = 

(1) 

(O) 

PERIPHERAL TABLE 
bits (23-2) 

(1) 

(0) 

STREAM TYPE TABLE 
bits (22-8) - 

(7-3) 



1 if reroot© 
0/1 p if normal / seal -remote 
1 if tape oat of action 

print well backlog 

spaxe "~— " 

1 if full backlog 

actual output backlog 
1 if idle 
1 if s©mi'»emergency 
1 if emergency 

( i word entry ■» entry n for stream n) 

spare 

stream ftill parameter 

space 

stream output backlog 
1 if peripheral available 
1 if semi- emergency 
1 if emergeacy 

(J -word entry) 

address private peripheral store (less*7) 
0/1 j, if input / output device 
i ' if not available 

(i word entry - entry n for otttput peripheral n) 

spare 
stream type 
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Active List Scheduler, (lo6) 



(no job) 



1 

8 

V 

=» r66o 



O 



mew job 
AL job ■=■> XEQ 
job priority 
altered 



I 
i 

V 

semi emergj 

1/663 
I 
I 
I 



exit to scam or 

another part of scheduler 



s 



=<■" 1/661 (sele©tio3i routine) 



(with job) 



c=» i/66g (entry routine) 
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Program Scan 
exit if no 
<<= 
scheduler bits set I 

1 

V 

XEQ job 
priority altered 



Execute Scheduler, (Z$0} 



enter 

1 
I 

V 



o 



■=r66ck-= 

I 
1 

V 

Job ends 

r555 
I 
I 
! 

V 

I 
1 



set up stream directory 

I 
f 

V 

R654 
selection routine 



i 
! 
1 

V 

Rl/650 

enter 
1 
i 

V 

=&'R2/650 
reader execute 
list 

I 
1 

V 

set scheduling 
bits 



I 
i 

V 

E 

5 
I 
I 
I 

V 

I 
8 



1 
I 

V 

new job or 
priority altered 

R65I 
I 
I 

V 



! 
exit if 



not needed 



exit i^ no job 



selected 



o 



i2oa»64 



Document Assembly Flow Chart, 



o 



o 



r66o 

! 
I 

IN 

V 



r66o 
8 
I 

DOT 

V 

->r665 (job assembly rot!tine)<= 

V V 



I 

V 

R664 
I 
I 



8 



no document assembly 

1 



i I 



'■>r670 (select document for assembly)<'= 
(uses r668 

! 

I 

V 

<=<»-'-R671 (find imput well block) 
/ /I 
/ / I found 
/ / V 
/ / R67S (remove/duplicate routine) 
not found / 

/ / 8 

/ / 8 

V / ■ i i 
.■»-c./-«.=.-»./«,-=.<==»>R^j (assembly control routine) 

/ / job descriptioa 

/ / 1 

/ /next block | 

/ in store i 



/ 



/ 



/ 



1 



/ 



/ 



/ 



/ 



document ©omplete 'or 

space refused 
I 
8 
1 
I I 

j<™=""=next block !jot"»<=>""="-~ i 

I in store v 

! R^5 (doeumant complete action) 

8 

V 



»<=»=— R<^8(list job description—^ 



R^6 (prepare to read in) 

i 
! 
8 

V 

-R462 (read in routine) 



=^job not complete^ 



->job complete or refused'^ 



O 



V 

BRAJJCH 

8 

V 

r66o 

8 

V 

<-r677 (return from read in) 



\Ti?4Shr 



o 



o 



o 



650/1 

R650» Esiter job in execute list. 

Purpose ; To enter a new job in it's correct position in the execute list, 

Connections with other routines . 

a) ■ .Entered at (1) from ■R654 with 

BlOO (1,0) s= 1, 

(11) =: 1/0, tapes/no tapes. 
■ other "tii^'ts zero» 
■BlOl (ig)- =1 compile. 
(17=15)= -type. 
(6-4) = priority.; 
other digits zero, 
BIOS 'job'-ideserl-ption 'address. 

Bi03 (33-13) somber of -blocks-required" less one. 
-6104 active list en'try address. 
Exits to 1/660 if there are. no free entries otherwise to I/653. 

b) Entered at (2) -from R657 with" 

■BlOl (6~4) apriority, ■ 
BI06 = entry to be ordered. 

Exits toBllO, 

Also the new priority must have already been set in the switch 
directory amd the entry removed from the list linking with the 

next job bits set to zero', ■ 

Notes ; 1, The routine places the new job or the one "with altered 
priority inmediately above the leading job of the next 

priority rating, . , . . 

g. A free : entry in the- 'execute list is detected by the 
fact that the: store, directory. estry is zero,' 

3, The routine sets up new entry as follows; 

a) Status-directory, 

(11)- s 0/1 1 tapes used, 
(8=a) s linlc to next job, 
(1=0) =1, 
b) ■ Switch 'directory. 

(I9) = 0/1 1 compiler mode, 
■ -(17^15)=. typr.'" 
C^^^) ss -prtority. 
These' -taits-must'be-added in to the entry, 
c-) Main prograjm store (fflps) dump, 
■taps O ' PJD-' address. 
■laps 1 (23-lg) 'max '(asr+b') -I, 
mps 4 active, list address, 
mps 5 SER entry address (I/280) 



lg.2.64 



o 



R650 Cont. 650/3 



4. The ex©©rate list contains 8 entry positions 
but the first entry is always used by the 

supervisor- leaving- J toT main programs, 

5. ■ There are 3 basic types of -jie-bs' indicated 

;by the-following -type values; i for tape jobs, 
■Z for common or peripheral jobs, 3 for computer 
jobs, 

6. Priority-'valuos are as ■fqllows' 

O top job, 1 tape job^ a ©onmson job, 
3 computer job, 4 low job. 



o 
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; 651. 

R65I « Job- assembly ©ompl©t© action* 

Purpose i To determine is-hen a a©w job is elearad on an active list stream 
'Whether the selection routine should be entered, 

Conneoti oas wi th o't faa g' rotitines t 

Entered at.<l) from r66o and ©sclts either to I/656 or i/66o. 

Notes ; 

1« The- aim-'of -this "rtratl-n©' ■ is to -prevewt- -the- seiection routine 

being-v'en'tarBd'-whem -a -new-peri-pheral- job "which is cleared on 
■ the- a^'ti-ve- li-S"tp .i'S-'Bot reqwired on the- "execution- list* By 
thig means intemaptlon of compiat©r=>tape job time sharing 
does not occur every time a new peripheral job appears. 



o 
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O 



„ Scheduler parameters and tables. 

tj ,»-.^„. ipQ gg^ yp schedtiler parameters and tables and also to set aay 
tanset tables during development period. 




Notes 5 



X^«<^«" 



O 



O 



o 



o 



653. 

_r653 . Set scheduling bits. 

Purpose % To set own clock and dymamic time sharing (DTS) bits where 

necessary. 

C onnections with other routinegs 

Entered at (1) from R650 & r66o, and exits to i/654. 

Notes ; 

!« The rules for setting these bits are; 

a) If top priority job present give own clocko 

b) If no top priority job preseat, give ■ all ■ tap© jobs and 
top peripheral job own clock and D.T.S. If no peripheral 
job present p- give own clock and -D.ToS, to one computer 
job which is using tapes. 

e) Jobs not mentioned above ar© given a general clock and 
no D.T.So occurs. 

Z* If there is only on© or no jobs for D.T.S then *4 is set 

in time criteria to prevent D.T.S,;, otherwise the time plus 
scheduler period is set as the time criteria. 

3, Associated with each job is a "elearway''^ bit (digit 10 status 
directory) which has the effect of- ensuring -that' 'execution 
of the job will continue so long as it is not held up. If 
the bit is not set a job is likely to be Interrupted as soon 
as a job of higher priority becomes free. At present this 
bit is not set for any jobs. 
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654. 

R6^, Selection Routine « 

Purpose 8 To s©l®et a job for th© esecat© list from those available ob 
th© active list. 

Coxmectioffis •with_ other routiEe s s 

Kffit©r©d at '(1) from £65(8 and -©xits to i/66o if -ao job selected 
and to 1/650 with th® ©atry eoaditioa® set up for this routine 
if job selected for ©ntrj to ©xeetst© listo 

Hotes ; 

1. Th© rules of selectiois aret 

a) Qnlj active list jobs ■ whose 'documeats and compilers 
are in smtn store are coasidered for selectioao 

b) All except peripheral jobs are ©atered in execution 
list as soon as' availsble^ 

c) Peripheral jobs- are entered when execration list is 
0',K„ if 

i) Stream output well is notfull« 
ii) Mo peripheral job oa ©Kecute list 

and either 
iit) emergeney 

or 
iv) space available a®d onatptit fits iatq well, 

d) If ©xeeut© list mew O.K. th©a a peripheral job is 
entered providing the output well is not fullo 

^, The- space paratiseter os©dfox»-s©liedifflli'»g Is-tli© job size 

plus -Bsa'X (ase^b) !-©■ 'fflaximaffi' eoffipilitsg spaeeiimd mot th© 
sisE© ©stiffiat© giv@3s la -th® job 'descriptiom -Sfhich ia 
allocated to th© job after compiling is ©onipl@t©o 
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655. 

S§S1' End of Job Roiitine. 

^-v FuTpoBet To lose the active list„ job and job document entries when a 

\_y job finishes execution. 

Connections with otheg rontiaesg 



o 



o 



Subroutines? 



Notes 5 



Entered at (1) from I/660 and exits to 1 



a) Enter 1/684 to lose 2i word entry with 

BI04 = entry addres^. 
BllO = link. 
Use® BiOOi, 104^ 107 and BI08, 

b) Enter 6/694 to lose 6a word entry with same entry conditioms 
and usage as a). 



It is assumed that job and active entries are in the 
same stream. 



o 



656. 

R6^6» Set up stream directory. 

Purpose ; To update the stream directory, 

Coanections -gith other ro^uttines; ■ 

■Enter at (1) -fxom-RSsSi,- ^65$ amd- r66o 'aad exit to I/654. 
Also entered at (1) from R663 and exits to 3CI/663) 



Notes ; 



o 



1 * Associated- 'jd.-th- the aetive- -stresm list- is^- a ~ streaas- direotory , 

each stream having a i word ©atry. At present only the 
entries for peripheral streams are (used. Each entry consists 
ofs 

(0) = 0/1 /emergency, 

CD 2s 0/1 /semi^enssrgeffisy. 

(a) s 0/1 /not -fiallo 

C3~10) - CJjrtpat- backlof blockSo 

-Bit® 0(, 1 and a -are-Bet "When -afflF-of—ths'periphBrals in this 
stream category ' ar© in 'a state -of '©jaergsEcy , ' s©mi<=effi©r^nqy 
or not full respeetively. Similarly the stream outpiat backlog 
is the sum- of the- backlogs of all the peripherals in the group, 

2. Por-each- entry- in- -the peripheral scheduler table there is a 

correspoadlng I word entry in the stream type table 
(^y) s stream type. 
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R657 . 
Purpose ; 
Connections s 



657. 
Set new priority* 

To allocata aa operator's priority rsqsiest to a job. 

Entered at Cl/657) from -r66o with- 
•8100(^3=11) s job-id^mtity. 

(a-0) 3 -priori-ty O topp Ool highv 
Ooa-ftorajalB 0,3 lowo 
Exit® to C 1/660) 'after 'havifflg -put aa SER to tSie slow 
■qmeti© to-refraruc to operator routine with BlOO as on - 

inpmt 'pits® 

BlOO (3) ■■& 1 ±f job on JL 
C4> * 1 »« AL 

(5> s 1 "» ©x©eiate list," which will 
call i-n R65I1, R653&R66le, assd also after setting g„5 in 
the scheduler" line o 



Subro utines ; R650 to reorder execute listo 



Notes; 



O 



1. 



The effect 'of the priorities are? 



a) job list entries, 

-the -new- -priority is ■©atered-ia- th© job' ©istry, 
top jobs arf put into the top streasEp and' 

•hig-h'-jobS'-ar'© |mt to head of- this stream queue, 

- -b)- -active :list'"-jobs, 

top'jobs are put 'into the top stream, 
c)- BOKeeute list jobs, 

the new priority is noted in th© awiteh directory and 
the list reordered. 

3, Mot© that with high aad normal jobs the priority equals 
the type. 



12,2.64 



O 



639. 



o 



Purpose s 



Activate Schedtilerv 



To set marker iait in schedwiler line aaid eater in SER to the 
sl-ow quay© if scheduler not already activeo 



Coimeet ions • with other ro^tiBess 

Entered at 'c'l/§59) with 
BiOg is marker bit 

BilO ^ link. 

Exit to link. 



Subroistines j 



a) R^o6- entered via, Rg30 to put SER to queue 

Entry at <a/206) with 



B107 


ES 


■q«0Bi© 


araafaer. 


B108 


& 


esstry 


iaformation 


B1C39 


S 


eatry 


address 


BllO 


S 


liBko 





Notes s 



This roratiae provides th® o»ly ^msthod to-'be tise'd- for activation 
of the sehedmler. The roatine in combination wi"th''R66o 
ensures that the scheduler is only active in obeying instrmctioias 
and waiting for a drum transfer on one task at a timeo 



O 
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660. 



Scheduler Entry and Exit, 

To exaMne the sehedisler line in the working store and 
exit to ■ appropriate ro^itin®, 

Connectiom^ ^ j^^.'; 9^ftg^.;^?^'fc-^;^ ®g ° 

' 'totered atl/TOO from SER qiaeiae ©mtry or from scheduler 
ro-utiaeSe 
.Exit via j-ssa^'tabletO' 'appropriate scheduler routiis© 
■■with BlOO unaltered aad active bit set, aad to 
program scaiK if scheduiler line a©roo 

Notes ? lo -EiHtrj to ■ scheduler reutisie is wad©'- through r66o 

using "the scheduler lln© to- indicate "the routines 
required to -b©-. entered amd a ■ junqj table giving 
their addresseSo They ar© -dealt -with in priority 
order O;, i^ a .sooo-SS. Digit gj is set to 1 when 
the scheduler is active and no entry can b© made whilst 
this bit is seto 



O 
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66i. 

R661. Active Li^t Selectioai Routine. 

jPtuirpose s To seleet a job from th© job list for the active list, 

Coiimactiofflg" with other- roqtiaes^ ; 
•■ ' EBtered at (1) -fxoaj r66o aad Bxitm to I/660 if no job 

selected or to i/6fe 'fith 

BlOO C6=g)-s str©asa„ 

BlOl (a3=g)- job ©ntrjo 

Note8 5 

1« "Rtsles of seleetioas (im ©rd©r of pajlority), 

a) There is a liasit t© th© ansmber of 'jobs -that cam be 
pnt on th© active listj ■whem. this limit is reached 
no further jobs are added till a position becomes 
vaoant , 

b) Ctoly ome -job-utBdergeing private tap© a,mM&mhlj is 
allowed oss th© list at a tiraeo 

e) Oaly ©a© ^m^asual job i® allowed oa active list at 
a tim@o 

d) Top jobs and jobs with "piat oa Ali° ° bit set are esstered 
to the listo 

e) Omlj 1 coaputer aad tap© stjceaia' job- is allowed ob listo 

^.^ ■ f ) Peripheral jobs in a gtrsaa ■with g©!ii=©m©rg©ffley are 

(^ ©atersd if lao other jobs of that stream bsq already 

oa list. 

g) Th©r© is ajsiniiHism'-ffinajBteiP'of jobs re^qiaired- on list to 
©BSisrs am OsKo ■ ooaditieia. If this aiaiEbes' is saot 
reached after f ii>st- pass of tfea s©l®ctioa rowtin© a 
seeoM pasg is sHd®, 

" ' h) Jobs "whiieh ss>® seleeted ©B^-the ®©e©ad' pass ar© peripheral 

jobs "whos© output- will -fit- in "the wellaasd also there mtast 
be a- -peripheral job on the exssrate list (this indicates 
that the o«tpiat wells are in a stat® of belasg filled) a 

ge The order of -peri-pherai gtseams is eritioalj 'the- order 

shomld b© ca© 'of ia^ortam©© aad popular BSage^ viz^ 'th® ""asay "° 
stream shossld be first Mth the lea^t nmrnd peripheral gtream 
last. 



O 
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R66a . . 

Purpose s 



Enter Job in Activ© List. 

To .eater a Job in th© aetive list. 



CoBneetiosi& -^ith other goMtiaesg 

Eat©Md at Cl)--from-R§6i-:-^lth 
-BlOO C6=»g)' s stream address. 
Biol- s -job 'isntTj o 

aad- ©xits -to I/66I. Th© rowitiae sets th@ assembly routine 
bit ija the scheduler lia©. 



Smfarom tiaes ; 
a) 



Motes s 



1. 



Eater -R693- at < 2/693) to obtain ^f word ©atry 

with- 11 10 s liak 

Exits to liBk with BI04 s a@w ©atry address.' 

This aubroistia© asay destroy all B limes except BiOO. 



Obtaiiss -f re©' -@atry and m@tB lijrfs to this entry aad link to 
job ©Btryj also sets asa active list bit ia job ©atry aad 
arranges for assembly. 



o 
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Purpose ; 

Connectioinis; 

Not«® i 



663. 

Semi emergeasy entrj to schedwiler. 

To met up the stream directory aeeording to latest peripheral 
informatioa before selecting' jobs for active listo 



Eatered at (1) f rom r66o aad ©aeits to (1/661) 
R656 is u^ed as a smbrotitiae. 

i, S©ffii'=^SB©ygeBC7'0® a peripheral indicates -that jobs for 

this stream should b© asiseabled in preparation for entry 
to- th©- execat© list when emergency occurSo 

Z, The Btreai! "dirQetory is oaly set up by R656 amd this routine 
ffiiBSt be Mised before entering the active scheduler proper. 



O 
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664, 



™04o Select assembly type documents. 



O Purpose t To search throiagh the doctmemt entries "for a job and 

mark thoSQ -which require assembly before execution. 

Connections yith other ro utiaes? , ' 

Entered -at (1) from.R§65 & R678 with 
. BlGO (a3=a) *- AL entry 
Exits to (I/670) 

Notes ; 

1. ^^ tio©isn»»tS"'whi'eh--'ar©-as®etnbl©d in-store 

"before eacecution -ar© ooiffipil-erj,-data„ archivej 
private tape and slash data document 1, 



O 
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R665. 

Piirpose^; 



665. 
Job Assembly Routine » 
At initiate the assembly of Job documents on the active list. 



"0^^ctii^^_^th_^l^_vTOuti^£j 

Entered from R660 &-R6780' 
and exits to 

a) (I/660) if no Jobs for assemblys otherwise to 

b) (1/670 -with 

BlOO (23=»a) = active entry. 
(O-l) s o 



Subroutines; 



Notes? 



1. 



3. 



a) R668p entered at (1/668) 



The rtsles of selectioa are clear from thellow diagram, 
however is should be emphasised that though jobs aire not 
nommlly assembled in store before their tapes iiave" been 
mounted a.rchive documents of active list Jobs are assembled as 
soon as the releva;nt archive tape mounted o 

The '*ao- archive- tape "--bit is set -Tfhen trying to" assemble 
archive documemts -whose tape is -not -mounted. This bit is 
cleared on all AL Jobs when any archive tape is mounted. 



o 
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R666 . Re-entry Roistine. 

(■' ) Purpose 8 To preserve B lines 100 - 110 •wh©mnon='equi valance occurs o 

Comiiee-tlona'i ,;'*i t-h- othe r routines-; 

Entered -at (l>""froBi"a-i?oatine by th© ijastrtfctioms 

113 is6 o' 0.4(3/666) 

131 . 126- ■ (1/666)"' 
Entered at (Z) after mon-equivalaiaeeo 

No tes ; 

1. This routine must be stored with each block of scheduler 
routines* 

3. When only Bl 00 needs to be preserved it is best to set the 
re-entry address direct into 5/gOl, 



o 



o 



jtiSo^e 



r667« Shift n places. 



6670 



Purpose ? To shift the bits in BI05 n places to the right. 
Connect ions wit h ather routines ? 

Enter at -"n ( 2/667) "with 

BI05 * word to be shifted, 
BllO = link. 



o 



Jl^a<^4 



O 



o 




o 



6680 

Set tjp Job Size, 

To "deteraiiae the ■nraBiber of- blocks a-: job oecTiipies ■whilst 
in the. active list and set this amibei? ia the' active 
list mntrj. 

Connections --with- other -yoTatiae s g- 

- -Entered at (1) -from -r66S ^Ith 
B102 Ca3">S) -■' PJD address. 
■BilO <33=»a) ^ linko 
(1-0) ■ = o- 
Exits to link with 

BilO (O) - 1 if -job- size- exceeds free- space. 

Notes s 1, There are three space parameters associated with a job, 
thege are ■ 

a) th© aetiaal ■epace-the— job-occ«pies-"whilst sitting in 
store, -This space- is" msed-'when -selecting jobs for 
the active list. It is obtained- by^mraiming' the 

•variotis -docmient- -si'sses, -which- are 'th^uselves obtained 
either on entry to- the store through normal peripherals 
or when they are read from aa archive tape at assembly 
time. 

b) eompi ler working space ax*b , where ' a & b are compi ler 

paranseters and 3E is the size-of •th©--docm!s@nt» This 
parameter is used whea selecting jobs -for the execute 
list, -When there are a number of doetiments the masc 
aac+b' is .used, . 

c) -The prograraasers own 'sparC© ©stiiaat©. This is the space 
allocated -to a job when' it is ready to commence 
executioa after compilation. 



IS.20.64 



O 



6^0. 



O 



R67O 
Purpose s 

Cosmeetiofflst 



S^routineS 



Notes % 



1. 



a. 



O 



Select documejit for asseaabljo 



To select th© appropriate job docniaseBt for assemblyo 

-Ent©red-'at-(l)from-R665 with 

-filOO (23-^) ' s A©t±v© list ©mtry, amd 
at C 8 ) -f roffl ■ R46a ■ wi th 

B1O0 C^J^g) - doc addresso 

^It' -with- 

-Bl-00 (^3°°^) = "doei3m©init- address 
to (1/^6) -i'f • dooTQSESffit use ® special or dmap tape 

CI/67I) otherwise/ or 
to ( 1 7665 ) i f ■ ao docuiaaat sel©© ted , 

-R693 to -obtain fe-irord- sectioao 'Easter- I/693 with 
■BllO = liuk , --bit s 1. -Ret^ras to link with 
BI04 3 address. of seetiono May as© BlOl-llO, 



If private- -tapes -ar© still Be®d-ed onlj archive " documents 
may be assemblodo ThsB© ar© asserabled 'for AL jobs gt,s soob 
as archive tape is -ffiotsateda Mormally docuasents are 'not 
assembled in store until all the tapes have been mounted » 

To imcorporate-job'-deseriptioH- asBeiably iato the aorxK^l 
docu-mefflt assembly -fraisework a fe -word-seetios is obtained 
aad- set -up as though it 'was really the- job descriptionp ie, 
■words 1^94 &■ l3.0"Of"-th© first seetioa contain the active 
list aad- job- list -©ffitry- sddre®® aad iffi- the- second seetiom 
word 13eO eoataiffis 'a-ddress of the lst» ^©etios (or telspor" 
ary PJD) a-ad the -block label of the real PJD will 'b© 'placed 
in 11 „4 whem it is assembled,, Later this seetion will be 
used as the first sestiom of the expanded PJDe 
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O 



6;i. 

R67I , Find input well block, 

^-^ Ptiriaoae t To search the iapust strean to find block for assembly. 

Connections with other TOmti neg; 

Entry at (l) from R670 or ■R673 with 

BlOO Cg3<=-2) s doement address. 

Exit with 

BlOO preserved 

to Cl/676) if block aot foand and 

to Cl/^S)' with 

BlOO CSS^g) - docranent address. 

BIOS (10=8) ^ section- dootsment begins. 

BI03 if (O) = 1, C7~S) a input streaas 

if (O) = Oj, (2g«l^) = BL of previews block in stream, 
Bi06 - BSD ©ntrj. 
BI08 (gg^ig Si BL 

Bi09 (2=0) an priority^ = supervisor 0.1 s top. 
0,5 - normal. 



Subroutines g 



o 



a) R667 

b) R630 entered at V630 with 
BI08 Caa-lg) s block label. 
BllO ^ link. 

Return with 

BIOS (Ig^a) - block positions 
BIC^ ■ s BSD ©ffitry, 
BiC^ (ag-ia) = block lab©l. 
Uses BI05, lofi and I08 
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67a/i 

R67a . Remove/Duplicate Routine. 

Purpose s To either reisove or duplicate a block in the input well. 

Connections ';'with othe r _ r outin es; 

Entry at (1) ■froffl-'R671 -with 

-BlOO <23'=>g) is doctHBemt -address, 
BIOZ (10-8)- s section documesst begins, 
BI03 i-f (0) = Ip C7=g)^s input stream. 

(0> ^ Og Ca^"l^)e BL of previous entry, 
-Bio6 ■sB.S.D, eatry, 

■BIO8 Ca^lg)= B.L. 

BI09 (3^0) 5= priority O s supervisor 0,1 = top 
0,5 - normal. 

Exit to <l/^3) with 

BlOO as on effitry, 

Sufaroiut ines 8 

a) R63O to find position 11 in BD of BL 
Enter at g/630 with- 

BI08 (22-12) * a 
BllO = link. 
Exit with 

BI05 Cia=«) * b 

.BI06 s BSD entry, 

BI08 (gg-ia) s a 

b) R63O to acquire free block. 
Enter at 1/630- with 

BI09 C^-0) - reason & priority. 
BllO (^3=2) - link, 
(0) 1^ 1 - 
Exit with 

-Bi05 (1^2) S5 a if available, 
BI05 32 o if not available, 
- BIO9 {aS=»la) ^ BL 
renminder I's. 
©) RJ^S *o duplicate block. 

Enter at 1/315 with ' ' 

BlOO (l^Z) * a rest aero 9 ■ (al) ^1, 
BlOl (^3=3) - llnk,"(a-0) = 0.6 
BlOg (1^=2) - BL old block, 
(aSj al/ 13,0)= Ij rest Eeroo 
aotes 22^1- sets look down,' 
BI03 .. =^(14/314) 
■ -Eseit vith BlOO preserved, 
d)- R^8 to read or write isolated word 
Enter at (3/^) with 

Bloa s! word to b© written, 
or Bloa' - word to be read, 

BI04 = address- within bloek, 
BI09 (aa-ia)= block label. 

(8^3) = program number, 

digits 9jO irrelevant p remainder zero, 
BliO s return address. 

if (a) = 1 read, = O write 

Uses BI05 -. 110, fit. 

Exit with BlOO or BlOO^lQI preserved according to re^^entry address, 

12.2.64 
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672/2 

R672 Cont. 



Notes ; 

1. Th© block status -directory eatry (BSD) is 
(23) ss i if break- ia streamo 
<2a»l2) = mext'-SL 
(11«3) - tap© block Etasber, 
(2) = 1 if beiug processed. 
Bits & 1 used by input master & should not be altered. 



o 



1®.2, 



o 



^3» 



O 



Assembly control routines. 



To link and count blocks, unlock any where necessary „ 
set re;Ject bits and exit to appropriate routine. 



Connec t ions wi th other routines? 



Subroutines s 



o 



o 



Entered at (1 ) from 

with BiOO (g3-.a) = doc address. 

Exits to 1/671(, 1/6769 1/678 & i/675 with 
BlOO as on entry. 



a) R630 entered at a/630, 

b) 11463 entered at 2/462 to activate tape. 



i2,au64 



o 



R675>« 
Purpose t 



Dociament Coiaplete Action, 

This routine is SBtexexl wheB the assembly of a document is 
coiaplets to determine future action. 



Coimections with other routines. 



Subroutines 
a) 
b> 



■Entered at (l-) f rom R^S '-with' 

■BlOO (SS"'^) -= document' address 

Exit to (I/670) and (1/46^) with 
BlOO (aS"^) == AL entry. 



R630 entered at V630» ' 

R678 entered at 3(12/678) to lore blocks and exit to r66o with 

BlOl (aa-la) = BL of lEirst block to be last 
(other blocks are linked in BSD) 

BI03 = link 



Notes I 



When all the documents of a job are in store the blocks 
are linked in the BSD -with (23-12) - next BL, ans (23) = 1, 
if last block of document,, 



o 



i2o^o 



o 



o 



Purpose J 



Prepare to read in« 

To set up the entry coaditions for the routine which reads a 

blook into store. 



Connections with other aroutineg 



Subroutines: 



Notes s 



1. 



Entered at 1/^6 with 

BlOO (g3-g> s docstw®nt address. 

Exits to read in routine with 
BIGO as on input, 

BlOl (513) = -forward/backward linking, 
^7°~3) = tape deck sauKiber, 
(3-0) = priority. 
BI03 s tape block immber, 
BllO ^ (8/670) inmediate link. 

B103 s 1(1/^7) return link after obtaining details 
of block just read in. 



at 



shift in places. 



The Itiput and archive tapes are assumed to have backward linking 
whilst dump and satellite tapes have forward linking. 
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^7. 

R^7« Ret«ra from Read In. 

W Purposes To 0©t up the entry cosaditioas for the assembly control roxitin© 

after reading in a block from tape, 

■ Coaan eetions with othe r roiatin esr 

Enter at I/677 'f rdm -read- in ronatia© 

-with -Bl(^ C23«g)^,.do©TOmat" address. 

■BlOl (12=0) ss 'tap© nuffiber, 

BlOa <2^1g)^ block label, 

Caj) - ■ /block refused. 

■ Exit to 1/^3, 

with Bl 00 as aa inpuit 

and words I3.4 aad 14,4 of doeument entry set up, 

Notes s 

1. The prooedure-wi'th'-readingtap© bloeks is that ■(i/4fe) is- entered 
to read in tap© Mock. This routine ptsts an entry in the tap© 
queue and returns to link. When a -bioek has -been ■ read ixi a bit 
is set iffl the schedBler lisi® and -r677' is entered' via -rSSo, At 
this stag© nofixrther blocks are assembled- from' tape till the 
tape- routine is activated either when a-dooument is complete by 
entry to (2/463) -or when another block -has to be ■ read in. ' 
Details of the block Juet read in cannot be passed via r66o and 
r^ these are obtained by entry to (10/462) At this point the block 

^ i® locked down and the entry is lost from the tape quetae. 
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678. 



O 



R678. 

purpose s 



List job Descriptioffi. 

To copy th© origiffial processed job descriptioa frop lg| 
•word ©Htries to I5I word entries' and lose original 
entries -from. store. 



CoBnection& ■with- other- Tontiags s 



Sabroiit iBeg; 

a) 
b) 

c) 



d) 



o 



Notes t 



1. 



■Entered at (1) with 

-BIO© 2= job 'description address. 
■E^it to-R66o 
■Entered at 3(12) to - free ■ blocks vith 

-BlOl (22-12) - block label 

BI03 = - lijsk 
assd asxy farther blocks to be lost must be linked in the BSD, 



R692-©Ht0r@d at (1/692) to obtain fe -word section, 
■ RHilS- entered ■ at (2/248) to read" or- write isolated -wordo 
Ra05 entered at "3(23/205) to tapdate free block cosanter with 

■BllO ss lisik, 
Us©^ BI05 =■ 110, 
R3I7 ©sstersd- at 1(3/317) to los© block with 

SI 01 (^=12) e- block label 

BlO^ = program mtiniber (0) 

BlOO s liak 

Exits with BI05 s BD positioa. 



At th^ begimiing of R^8 the lis&s ia the docament entries 
■tmmt be reset to take aecoumt of aay bloeks which have bees 
duplicateds 
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^680. 



'"'UipOSQ. 



Two subxx)utin(js 



:jo of Instructions, 



Cross References, 



iR68o 



a) Test if separator present, 

(comma or space or newllne) 

b) Test if separator present, 
(comma, space, full stop or newline) 



(30) 
<3i> 



(1/600) = Get next character, 
(i/621) = Error Routine, 



:jonnections with other routines. 



O 



■7,ntry la) 
entry 2a) 



.iKit.a) 
b) 
c) 
d) 



To test for separator class * a' (coiama, space, newline) 
bllo = link. 

To test for separator class 'b* (coiama, space, newline, full stop) 
bllo = link. 

To link, if space, tab, newline. 

To link if comma. 

Error if character > 10. not full stop or comma. 

To link if full stop. 



n 



oteSo 



[•est next character - gives error if >_ 10 and not full stop or comma. 

- Ignores shifts^ 



Subroutines used. 



Get next character. 



la9»G4 



;l68l. 



o ^ 



rpose. S!Th-rotif-.1rLc.r> 



Uo of Instructions. 



Cross - References. 



!u60.i 



!i) read next n charaa*'^-^''- 
=>~t -■; -i-u l^^o^ ~ n 

bllO = linlc, 

b) Find beginning of next word or integGr. 
ie. Find next non-separator. 



(30) = ( 1/600) = Get next character. 



■I-onnee.tions With Other Routine s . 



Kntry 1) 

'%ntry 2) 
i'lxit a) 



To read next n characters, 
b.1.03 = n 
bllo = link 

To find beginning of nest word or integer. 

When having read next n characters in bl03 

With bid = first character of next word 



^teSo 



Reads next n characters , keeping last character read; 
if n ^ 4 loyes first x characters 

Assumes word begiiuiing with character >_ 10, not 
comma or full stop. 
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IR683 

purpose , »> liead Jntofjer 

T,o of Instmctions . 15 

C ross - References . 

(30) = (I./600) - Get next character 

(31) = <i/6j?0) = Error Routine. 

:oanections with other Routines . 

■inter 1) if beginning of integer not yet formed. 
with bllO = linli - bl03 = o 

inter 2) if beginning of integer fomed with blol = first character 

blC2 = 
bliO = link 

"sit a) if reads letter or character > 32. 

t*) to link with integer in bi02 

■v otes . 

;) Assumes integer ends with a separator of class (a) 
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^^34. 



!ii684oi 



O 



T Hirpos e. 



a) Search a list of halj; -nKji-oa iP-vl- o.-^ o3.-:^n'3Tit 

enter vV3.th b 10J5 = element, 

b 105 = begining of list. 

on exit b IO4 = identifier. 
Error if not on list. 



b) Read until new line. 

Ignores all characters up to newline. 

c) Update words 10,0, l6o,11.4 of 
docxiraent entries. 



'jross References, 



O 



130) 
(33) 



(1/630) = Error routine, 

0.4(5/600) " Exit link in "Get next character." 

0,4(3/600) = '*Get next character"no of characters 

in current statement. 
= "Get next character "position of last 

character read, 

(4/600) = Alternative entry to "Get next character", 
0.4(3/619) = Stored for word 11. of 12 word block. 
(4/619) = Store for word 11. 4 of 12 word block, 
(3/619) = Store for word 10.0 of 12 v/ord block. 



■.33) = 0,4(2/600) 



i34> 

35) 

C36) 

v37) 



';:oD.nections t/ith Other Rovitines. 



sitry la) 



ixit a) 
b) 



FOR routine to search a list of alternate half words 
bl02 = element searching for. 
bllO = link. 
bi05 - begining of list. 

If element not in llst„ 

v/hen element joined vrLth bl04 -- Identifier. 



O 
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Ilntry 2) " " "Iteaxl- un-fcil -ncwlino„ 

Sxit a) To linli when newline read. 

d> 
l-Intry 3) To store lialfwords Into 13 word block 

positions 10.0 ; 11,0 ; 11.4, 

bl04 = position of 12 word block. 

Exit e) when completed. 

Motes . 

i) Assimies lists of the form. ao / a, 

bo / b, 
CO / c,, 

where xo = element, 

X, = identifies. 

List terminated by zero entry. 



lR6S4,a 
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B&S'^ 



Purpose, 



- Subroutines = to duplicate a title into a buffer block, 
ss to add 1 to no of tape decks needed. 



ITo of Instructions, 



::ross RefenceSj 



C30) 
{31) 
<32) 



= Position of job description, 
(1/630) = Error routine, 
*00002COO = Maximum no of tape decks allowed x 2' 



O 



Conne ctions , 

Entry 1) - To duplicate a job title. 

bl04 = 12 vrard block to be stored in. 
bllO = linlc, 

biog = peripheral identifier. 
~To link v/hen transfer conspleted. 

- To add one to no of tape decks needed. 
bllO = linli. 
blOQ = peripheral identifier. 

- Error , - too many decks requested. 

- to link on completion. 



Exit 


a) 


Entry 


2) 


Exit 


b) 




c) 


Notes. 





1), Transfers complete 10 words. 
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n686. 



Purpose . Read (a) /(b) /(c) 



^7o of Instructions. 



gross Referencss. 



.30) = (1/620) 


= 


Error routine. 


r3i) = (2/683) 


= 


Read integer 


(32) = (31/619) 


= 


Word to bo stored in 11.0 


^33) = (30/619) 


= 


Vs'ord to be stored in 10.0 


::34) = 2(2/681) 


= 


Find next non separator. 


{35) = (1/683) 


S 


Read integer. 


■onnections^ 







o 



Enter at (1) v/ith blOl = first character of (a) 

bllo = link. 

Exits to Error Routines 
or link. 

Notes, 



i) accepts format :- (A)(separator?>b/<soparator?)<b)(sGparatoi?)/(separator?)(c) 

(a) can be of form :- A(integer) 
or (integer) 

;) Storos in vuord to be stored in 11.0 in following names, 

bits 0-7 = integer part of (a) 

bits O-IO = (c) 

bits 11-23 = (b) 

word to be stored in 10.0 = identifier = ^14 if (a) = A (integer) 

= * 7 if (a) = (integer) 

3) Gives Error if 1) (b) >5000 

2) (c) >7 

3) incorrect format. 



O 
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r687. 



Purpose, -" Subroutine - Test if title is element of a list, 
No of Instructions. .1.2, 

L ■ II niBii lairiTi- I II '■ ■ '■ — .— ~.. 

Entries . 

1) To search the list. 



b iOA = position of beginning of title, 
b 10^, = t. ». ti .t list. 

b 107 = ( " " " " ">- 10.4 
b 110 = linlt. 

Exit a) if title is part of the list bl05 = position of title 
->link. in list. 

bi04 unchanged, 
bl07 = position of previous 
element in list. 

Exit b -> llnli +16.0, if title is not part of the list. 

bl04 unchanged. 

Notes. 

Search assunes that table ends with zero link. 



Ir637 
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V1688. 



Purpose. 



To form checksums 

a) of title in 12 word block 

b) of title not yet put into 13 word block. 



l-:o of Instructions. 



jross References. 



<30) 
C32) 



= (1/692) = Routine' ' Get a 12 word block' ' 

= (I/682) = Routine*' Read and store title" 

- (1/694) ~ Routine" Give back 12 word block of space. 



O 



Connections. 



>:nter 



Enter 



1) 



2) 



To form checksum of title in 12 Word block 

on entry bl04 = position of title. 
bllO = linli. 

on exit bl02 = checksum. 

uses bl07, 102, 106, loO, 

To form checksum of title not yet in 12 word block. 

on entry = b 110 = link. 

b 101 = first character of title, 
on exit = b 102 = checksum. 



uses. 



all b - registers. 



O 



Sotes. 



1) 



a) 



3) 



Entry (1) assiunes that title has been stored in a 12 word 
block and forms a halfword checksum 
of 6 bit characters until it encounters a blank halfword. 

Entry (2) Acquires a 12 word block, stores the 

title in it, forms a checksmn (using first entry 
of routine) and then gives back space. 

Routine assumes that all titles have < Co characters 
and end with a newline. 
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IR6C9 
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purpose. 



— To -record tv." 'Iota. -5 To of a now output gitreara. 



No of Instructions, 



Cross References , 

(30) = (32/619) 

(31) = (2/619) 

(32) = (I/630) 
533) = (I/692) 

":34) = 00/619) 

(33> = 5(2/604) 

Connections. 



s= Word to be stored in 11. 4 

= Position of job description, 

= Error Routine, 

= Routine " Get 12 word block' 



O 



3nter at (1) 



Exit 



a) to link. 



to record the details of a nev/ 
output stream with :- 

b 102 = (in) = no of blocks of output, 

b 104 = type of peripheral, 

b 110 = link. 

b 109 = peripheral niamber, 
(30/619) = no of output document. 



b) to error routine if too many output document 

defined (>l6) 



>-Totes . 
1) 

a) 
3) 



4) 



o 



Routine allows maximum of 16 documents, 
(physical maximum is 3I) 

Routine notes the major output document in 
job description. 

Infoimation is stored in one half word. 

bits O ~ 3 = type of output peripheral, 
bits 4 -17 = amount of output in blocks, 
bits lO -23 = no of output document. 

The first 7 output documents are entered in 
half words 6.4 to word of job description, 
and word 6.0, bits 2-7, contains the 
number of output streams. 



1,9.64 



Purpose, - To enter dociimont or title in incomplete job list, 



i?o of Instructions. 



Cro s 3 References. 



(<J0) = 0,4(1/619) = position of job description. 

O 



connections. 



Enter 1) to enter document in incomplete list. 



en 



ter with bllo = link 



bl04 = position of 12 v/ord block holding 

the title. 



exit to link, 

O 

uses b lo.t,10o. 



IR690. 
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R6qi, 



Purpose . To request another archive tape. 



:7o of Instructions. 



Gross References . 
C30) = (2/619) 

C3I) = (i/6ao) 
<32) = (31/619) 



= Position of job description. 

= Error Routine. 

= Word to be stored in 11.0. 



O 



Co nnections , 
{■inter at (1) with 



b 110 = link. 

no of archive tape in working register 0,4(3/619) 

b 109 = peripheral identifier, bits 0-7 



gxit (a) to link on completion of task. 

l^cit (b) to Error Routine if requested too many tape 

decks ( > 9) 



Hotes. 



Adds 1 to no of systems decks required 

in job desciption word 2,4 bits - 11. 

Resets the number of the major archive tape needed 

in job entry vrard I.4 bits 12 - I7. 
Assumes that last archive tape requested to 
the major one. 






4. 



Sets word I.4, bit o, = 1 | This signifies that archive 

tapes are needed. 

Gives Error, if request too many tape decks. 



O 
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!R693.i 

R6Q3 . 

Purpose , - a) Ask for 12 vrord block of space - Entry <i) 
b) » * « » 2| " • ' " » ' - Entry (3) 

j lo of Instructions ,, - 24, 
C ross References , 

C30) = = Pseudo -Label for position of head of '5I2* list of blocks. 

(position of head of list - I.4). 
(3I) = = Routine - ask for' 62' word block of space, 

b registers us ed. 101, lo3, I04, 

r^ntries and Exits. 

Entry 1), with link in bllO to acquire 1 '12' word block. 

Exit a) To routine - get one 62 Word section. 

Sxit c) 
{^ F.sit b) To link with position of block in b I04 

Entry 2) With link in b 110 to acquire one '3-^' section, 

Ijbtes. 

t) Input master space is divided into 4 groups, 

a) 512 word blocks 

b) 62 word blocks 

c) 12 word blocks 

d) £^ word blocks 

Each 512 word block is divided into 62 word sections, beginning 
at word 16.O. also the first words are :- 

word 0,0, head of free '62* word blocks. 

0,4 head of 63 word blocks used for 12 word entries. 
^ Q t i »»tf n »s t« ft gi »t ft 

1.4 link with next 5I2 word block, 
2,0, no of used 62 word blocks, , 



O 



2) On asking for a 12 or 2a word block the routine searches through 
the first 2i3 word section for an appropriate sized block. 
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3> <cont) and if there is a free 13 or 2,U «-^^-.i block, -i^- -tciKes It, if 
not then moves on to next 62 word block, or if none are left 
then the next 5I:? word block, if cannot find space 
then ask for another *63* v/ord block, to get this if 
necessary, a new 5I2 word block is taken. 

3) lifhenever a block is freed we attempt to free the 3I2 
word block holding it. In this way the no of 5I2 
blocks used is kept to a minimtmi. 

4) Each 63 word block is divided into either" 13* or 
2^ word sections begining at word 3,0, also 

word 0.0 head of free section, 
0.4 no of used blocks. 
1.0 link with next section in this '5I2' section of this type. 



O 



1.9.64 



o 



Ir693 
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P urpos e. - Svibroutine used by R692. and Petor Jones ask for '62 'word block. 

Ho of Instructions . - 53, 

Gross References . 

'30) = = Pseudo - entry for head of '5I3' list. 

\33) = 1.0(1/692)= Alternative entry to R692, 

••35^ = (1/630) = Routine - acquire one free block. 

Connections . 

Bntry 1) For '62' word block, divided into 12 word sections. 

Link in llO. 
10 odd if from Peter Jones, 

7) For *62* word block, divided into zh word sections. 

Exit with position of 62 word section in b I04, 
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Purpose . - Give back '12* or 2I word block of space. 
liO of Instructions „ 38, 

Cross References . 

(30) = = Routine - lose block b. 

Connections . 

Enter 1). with position of block in bl04 

link in bllO 
Exit a) - v/hen completed to link. 

Enter at 6) from Peter Jones, - to lose 62 word block. 

bl04 = position of block. 

Notes . 

- see R.692. 

\?orking space . Uses b 100, I04, 107, lOo. 
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IR635 



Purpose . To find loncth of output in BIjOCKS / i.iira:.q. 

16, 



No of 


Instructions, 


Cross 


References, 






(30) 




(3/681) 




(31) 


= 


(i/6?,o) 




(33) 


= 


(31/619) 




(33) 


= 


(1/600) 


Connections, 







= Find next non separator, 

= Error Routine. 

= Word to be stored in 11,0 

= Get next character. 



O 



Enter at (1) with b 102 = m 

b 110 = linlc. 



Exit to Error routine 
or link. 



Notes. 

i) Forms amount of output in blocks in b 102 , bit O - 23 

and in word to be stored in 11,0. 
a) Only considers the first letter in each word ie, B or L, 
3) Error if word does not begin B or L, 
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3§26. 



I 'urpOBe . = RecoGnl?;o an otitpiit poripheral namo. 



iR6g6 



No of Iristructions, 



1-;. 



iross References, 



(30) = 


<i/6so) 


(31) = 


< 1/600) 


(32) = 


(3/683) 


(33) = 


(1/693) 


(34) = 


(1/689) 


(35) = 


(6/604) 


Connections. 





= Error Routine, 

= Get next character, 

= Read integer 

= Blocks or lines 



O 



Enter at (1) with b 102 = first 3 characters of output 

peripheral name 

b 110 = link. 

Exit to Error Routine if does not recognize peripheral, 

or to link with bl04 = peripheral identifier. 

3 registers used . - I07, I08. 

l?otes. 



O 



There are four types of output peripheral, 
any = o.l 
Interprinter = o,3 
creed 3000 = 0.3 
teletype = 0,4, 
All output peripheral name must consist 
of one word only, io routine searches for 
next separator as end of naiiie. 
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IR697 

P urpose . Find next nr>n separator. 

No of Instructions . 9, 

Cross References . 

(30) = (1/600) ss Get next character routine. 

Connections , 

Enter at (1) with link in b llO. 
Exit to linlc with character in b 101, 

riotes . 

1) Defines separator as - all internal characters < 10, 
full stop and comma. 

Enter at <2) to Identifier a peripheral. 
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R700 Program monitor interrupts and SER 

iHEoses To record in B91 any errors resulting in interrupts (E0,])0, 

Sacred Violation, Unassigned function) and any errors detected in S.E.R. 
when the program is in store control. Main program controls are forced 
r\ lnr.1: -^^ ®^* ^^°^ supervisor^ control is transferred in extracode to 

K^-' E7OI . 

Registers of fixed store s 29 

gumher of instructions oheyeds Varies from 9 to 22 

A maximum of I4 orders obeyed vdth interrupts 
inhibited. 

Parameters used ? (1) to (14) 

(7) = "Current program trap address" 

One half word in subsidiary store in the current program working 
area holding . 

Digits 23-2 Address of trap vector. If no trapping, P23 = 1 
Digit if no errors detected 



1 if error recorded by E7OO (rest by R701 ) 



Cross references 



(3) = 2727*4 Table H/'^2 *l/*Oj. etc. 

(4) = (4/201) "Enter Supervisor" slow queue 

r<\ " kV/^SI "^^^^^ ""•' ''^' ^4 n128 in alternate half words 

{b) =r J 10/201; In Supervisor switch 

(9) = (6/201) llain program controls 

r~\ /!?% >?/7°''( ■^'^^^ '^° "°^ 1^"® monitor extracode and trap" 

W (11)= (1/202) Entry to "Program Scan" 

Connections v/ith other routines 

Entry at (1) from E50O under interrupt control with 
B123 = (UE) 

1 (DO) 

2 (SVI) 

3 (svo) 

5 (EO) 

Exit to 2048*4 if previous error has been recorded 

to "Enter Supervisor" at 4/2OI if first error with 
B112 = (12/700) = Re-entry address. 

Re-entry at (12) from R201 

Entry at (2) from SER detecting error in current program in control of 
store, under extracode control, with 

B126 odd (digit = I) 

B100 Error marker digits 10-2 Digit 1 = 1 if non trap error, 
or in one of digits 23-11 if trap error 

B102 Return address R digits 23-3 

Exit to Retuen Address R with error recorded in B9I and with B101 altered. 

^ Entry at (I4) : As entry at (2) only B102 not set on entry, and exit is 

to program scan with B101, 102 altered. Note again 
BI26 odd on entry, 

16.7.62 



E700 continued 



R7OO/2 



Temporary working s-pace s Entry ms 5111, 112 

Entry (2) s B111, 112, 101 

Entry(l48 B111, 112, 101, 102 

Entry (l^s B101, 102 



Not ess 



O 
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1v This routine builds up in B9I a record of detected faults. The 
faults are of two types, those which can arise simultaneously and 
those of which only one can occur at once. The former (including 
interrupt faults) are recorded as digits in 22-11 of B9I ( 1 = fault, 
= no fault). The latter are recorded as a counter in digits 10-2, 
with digit 1 = 1 if error is not trappable, if error can he trapped. 
The assignation of digits and counters is to he determined later 
(see note 4). 

2. The program is set up so that on ezit from supervisor, R70I will he 
entered in extracode control at (2) to decode B91 , 

3: In order to prevent alteration of extracode control by a non- 
equivalence SER after it is set by E7OO (during an SEE), the non- 
equivalence look at me is put cut on entry (I) if the In Supervisor 
sv/itch is negative, 

4» The temporary assignment of digits in the record in B91 is 



Digit 


Fault 


Digit 


Fault 


22 


UP 


17 


Local timer 


20 


BO 


21 


Overall timer 


18 


SVI 


19 


Execution timer 


16 


SVO 


15 


Page lock down 


12 


EO 
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R701/1 

R 701 On line monitor eztracode and trap 

Purpose s Entered after R7OO has recorded faults, or from eztracode 
routines discovering faults. Analyses whether the program 
has trapped the error or errors, and if so enters the trap. 
Othemvise enters R702 to monitor the error(s). An alternative 
entry is from the trap- eztracode. 

Registers of Fixed Store s 22 

Number of Instructions OTbeyed s Varies from 2 to 30 

Parameters used ; (1) to (11) 

(6) = Fault numher of "Uo trap set" digits 10-2, Digit 1 = 1 

Remainder zero. 

(10) = Mask of non-trap error. Digits 23-11 = 1 for any error 

recorded in B91 hy R700 which cannot he trapped, 
Digit 1=1. Digits 10-2, 0=0 

(11) = Fumher of interrupt type errors which can he trapped, 

digits 8-2. Rest zero. 

(7) = Tahle in fixed store, consecutive half v/ords. Only digits 

corresponding to trappable interrupt type error are significant? 
entry i as 1 in i the number of this set zero remainder. 
(9) = Trap rpask? one in digits corresponding to trappable interrupt 
type error, zero elsewhere. 

Cross references s 



(4) = (7/700) Current program trap address 

(5) = (1/702) Entry to Enter Monitor 



o 



Connection v/ith other routines 

Entry at (I) from trap eztracode (l11l)with 
B121 = trap number n, digits 8-2 
Exit to monitor, I/702, if no trap table set or trap n is not set with 

B91 = fault number "No trap set" digits 10-2. digit 1 = 1 
Exit if trap set with B127 = contents of word n.O of trap table 

previous B127 in B register specified in word n.4 
of trap table. B91 - 93, 121 altered. 

Entry at (2) from R70O with B91 = Record of faults 

Entry at (8) from eztracode fault detection with 

B9I = fault number, digits 10-2 

Digit 1 = 1 (Fon~trappable) , (trappable) 

Esits To R702 with B91 unaltered if any non-trappable error is 
recorded in B9I. 

If only trappable errors are recorded, the top priority error 
is selected and a trap is attempted as in entry (1). If 
unsuccessful, monitor is entered with B9I unaltered. 

Temporary working space s B92, 93, 121 

Fote 

1. On entry (2), the Current Program Trap address is reset to have 
digit 0=0 permitting further monitor entries via R700. 

16.7.62 



R702 Enter Moriitor R702/I 

Purpose s An eztracode routine to control entrance to the standard monitor 
sequence or to a private monitor sequence. Entrance is made via 
H701, when the error is not trapped. The routine prevents multiple 
(^ entry to private monitor routines in the event of errors occuring in 

these and prevents interruption of monitor routines by off line failures 
such as magnetic tape failures. 

Registers of Fized Store s 20 

Number of instructions obeyed ; From 9 to I5 

Parameters used s (I) to (6) 

(4) = "Current programm monitor address". 

One half word subsidiary store in the current program v/orking area 
holding the address to jump to for private monitoring; digits 23-3 
Digits 1jO = 00 Enter after printing fault description 
01 " before " " " 
10 " after printing description and 
standard post mortem 
If negative, no private monitor requested. 

Cross references 

(2) = (5/203) Current program member 

p) =. (15/204) Programm svrLtch drectory 

(5) = (1/710J Entry of "Main Store Monitor" 

(6) ■= (1/233) "Enter processing" 

Connections with other routines 

Entry at (I) with 

B9I odds On line machine error 

B9I even, negatives off line error (e.g. tapes) 

B91 even, positives On line program error 

Ezits a) To private monitor in main control 
B92 = old value of M 
B93, 121 altered 
B9I digit 0=0 otherwise unaltered. 

b) To "Enter Processing" 

with B97 = Address of Main Store Monitor digite 23-3 Bicit 0=0 
B126 odd, 

B9I unaltered except that 
digit = if private monitor allowed 

1 if " " not allowed. 

Temporary working s-pace ; B121, B92, B93 
Notes s 

1 . Private monitor is only entered if the current program is not in monitor 
already. Digits 1,0 of the program switch directory describe the monitor 
status of the program and read . 
Not in monitor 

1 Monitoring on-line program error 
"I " off-line error or failure 

1 1 " on-line failure. 

16.7.62 
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E702 continued 



R702/2 



2. If R702 is e^tered for on-line failure, the monitor description is 
forced to 11, If for program failure or off line f,- Llure, it is set 
to 01, 10 if formerly 00, tut otherwise is unaltered. 

3. If the program is not in monitor already, private print is entered 
immediately if the Current program monitor address is positive and 
odd. Otherwise the standr?j:-d monitor routine is entered. 



O 
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R703 Block monitor 



Purpose s 



O 



R703/I 

To monitor the current program ty entry to H7OO when Store Location 
and lock out detects use of a reserved block label or detects an 
overflow of store allocation. In the latter case, monitor is not 
entered if the program is in compilation or has been temporarily 
reduced in store allocation by the supervisor. 

Registers of Fixed Store s 30 

Number of instruction obeyed 8 Prom 9 to I7 

Parameters used ; (1) to (20) 

(3) = Monitor marker "Store exceeded" digits 8-2 Digit 1 = 1 if non trap 

if trap 
Remaining digits zero 
(6) •= Bits in program switch directory indicating compiler or 

supervisor store allocation. Provisionally digits 18, 19s 
(6) = *03 



Cross references 



o 



(4 
(5. 
(7) 
(8 

(9. 
(10 

(11 

(12 

(13 

(14 

(15) 

(16) 

(17) 

(18) 



■ 

= ( 
= ( 
= ( 

:[ 



7/299 ) 
15/201) 

( 4/204) 
■ 8/314) 
27/205) 
(14/700) 
(9/205) 
(7/202) 
1/232) 
1/202} 
(1/215) 
(1^204) 
(7/204) 
(9/204) 



Entry to SER "stop on block allocation" 

Program switch directory 

¥on equivalence marker 

Contents of (7) if non equivalence 

Entry to Unlock Store Block 

Entry to Monitor Interrupt and SER 

Current program in store control 

Current Program branch indicator 

Entry to "Branch block monitor" 

Entry to Program Scan 

"Set full recovery switch" 

Number of main programs 

Main program short dumps 

Program Status Directory 



O 



Connections with Other Routines 

Entry at (1) from R203 if store allocation exceeded 
BIO8 = Current program number 
BIO9 = block label digits 22-12 

Entry at (2) from R203 if block label limit exceeded with 
BIO8, 109 as for entry (I) 
B100 = monitor marker for this error. 

Exit a) To "Set & reset full recovery switch" at (3) with 

B100 = Fault marker digits 8-1 remainder zero as on entry 
BIO9 = Entry address (14) or R7OO digits 23-3? digit 0-1 
(causes entry to R7OO and thence to program scan) 

b) To Program scan, with current program in control set up to 
resume in supervisor with full recovery of B line and v/orking 
space, and to resume at 6(2/703) with 

B100 = Fault marker digits 8-1, compiler/supervisor bits as in 

program switch directory after entry (I) 
B101 = if fault follows non equivalence, non zero otherwise 
SER re-entry address = 6(2/703) 



16.7.62 
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H703 continued . E703/2 

c) To SER "Step on block allocation" if entered at (I) compiler/ 
supervisor bits non zero„ 
B100 = as exit b 
Main control reduced by 1 if fault does not follow non-equivalence 

Subroutine s s 

(a) "Unlock store block*' entered at (27/205) to free program with 

B110 = 4(2/703) 
BIO8 = Digit 23s 1 

Kgite22 - 12 = block label 

RenBining digits irrevelent 
B106 = Current program number digits 8-2. Remainder zero. 

Return to 4(2/703) with 

BIOO5 101, 106 unaltered. 

(b) "Branch block monitor" entered if program is in branching with 

B100 as exit (b) 
B101 as exit (b) 
BIO6 = current program number. 
Return to 10(2/703) with B100, 106, I09 unaltered. 

Temporary working space a B100 - 102, IO6 - 110, Bt 

Notes s 
^-„^ 1 . If the fault follows non equivalence, the current program or branch 

(^ is made free to proceed. Otherwise, main control is reduced by 1 

before exits a,c. The non-equivalence switch in subsidiary store 

is reset, 

2. If the program has been resumed In Supervisor and is not in store 
control, the program status directory is set to cause resumption • 
^vith store control in supervisor, and re-entry is then made to R703. 

3. The full recover switch is reset on exit to R7OO. 

4. If store allocation is exceeded legally C^hen in compile phase 
or if the supervisor has reduced store allocation) a main store 
SER is entered to supply an extra block. The programm may be 
resumed without alteration to the control registers. 
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FIXED STORE COLllIN 400X4 

(0) = 159*40014 



R703 



[Block monitor 



(3) 

(6) = 

(4) = 

(5) = 

(7) = 

(9) = 

(10) = 

(11) = 

(12) = 

(13) = 

(14> = 

(15) = 

(16) = 

(17) = 

(18) = 



= 2,0 



*03 

(1/708) 

(15/204) 

(4/204) 

(27/205) 

(14/700) 

(9/205) 

(7/202) 
( 1/232) 
(1/202) 
(I/2I5) 
(3/204) 
(7/204) 
(9/204) 



I Monitor nark-store exceed 

1 Compile Si supervisor bits 

[exit for extra block 

'fiv/itch dii'ectory 

1/^ maiker 

li'vee program 

! Moni tor 

[Current program in store 

I Branch in dicator 

iDranch block monitor 

IProg-'ani acan 

I Set full recover tswitch 

Ili/Iain programs 

i Short dumps 

[Status directory 



1) 


121, 


100, 


0, 


(3) 




101, 


101, 


108, 


(5) 




164, 


100, 


101, 


(6) 


2) 


101, 


101, 


0, 


(7) 




165, 


106, 


108, 


63o4 




210, 


126, 


101, 


(20) 




152, 


106, 


0, 


(11) 




225, 


126, 


0, 


(19) 




101, 


102, 


0, 


(12) 




216, 


126, 


103, 


(I3) 




210, 


126, 


101, 


2(0) 




122, 


127, 


0, 


1 




165, 


101, 


100, 


(6) 




215, 


126, 


101, 


(4) 




121, 


109, 


0, 


0„l(iO) 




121, 


126, 


0, 


5(15) 


19) 


113, 


100, 


106, 


(17) 




113, 


101, 


106, 


(16) (17) 




121, 


100, 


0, 


5(2) 




113, 


100, 


106, 


(i6)(i6) 




121, 


108, 


0, 


64^2 


, 


147, 


108, 


106, 


(18) 




113. 


108, 


108, 


(18) 




121, 


126, 


0, 


(I4) 


20) 


113, 


0, 


0, 


(7) 




121, 


108, 


109, 







167, 


108, 


0, 


«4 




121, 


110, 


0, 


3(2) 




121, 


126, 


0, 


(9) 



|3?^TRY FOR STORE EXCEED 

I ) COLLECT COMPILE SUPERVISE BITS 

[ENTRY FOR LABEL EXCEED 
DEQT IF NON EQUIVALENCE 
I) 

I) EXIT IF PRGGRAIfl NOT IK STORE CONTROL 

I) EX IT IF PROGRAM BRAKCIIING 

DBEDUCE M BY 1 IF NOT =/ 

i)EXIT IF EXTRA BI,GCK PERMITTED 

i) RESET FULL RECOVER SV/ITCH AND EXIT TO 

[ R700 AND THEN PROGRAM SCAN 

1)SET UP PARAfclETERS FOR RESUMPTICtT 
[) 

(16) (17) 
I) 

[)RESUj!,IE IN STORE COOTROL AOT) IN SUPERVISR 

[) 

[RESET =/ SV/ITCH 

IBIO8 = BTiXK LABEL p23=l 

[FREE PRGDRALI 

[qo/8/6-?. 



R704 Instruction counter monitor 



R704/1 
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Purpose ; An SEE entered when timers are updated and the instruction counter 

timer of the current program in store exceeds a check value. The routine 
causes monitoring if the local timer or absolute timer are exceeded? 
otherwise the check value and current counter are reset and "block timers 
adjusted to keep the timers within range. 

Registers of fixed store s 39 

Number of instructions oheyed s 8 to 1 4 if monitor 

Maximum of 18 + 10b, normal I5 + 8b if continue, 
where b is the number of blocks used by the current 
program in store 

Subsidiary store ; 

(7) = "Overflow check timer" One half word in cLu:'rent program working area. 

Normally holds zero. If local timer is set, 
overflow timer holds the former check timer, if 
local timer is less than this, or the difference 
between the check times, digits 22-3 

(8) = "Overall timer count" One half vrord in 6urrent program working area 

holding 
Digits 23-1 5 Ng No. of times overall check is to be reached 

before conclusion 
Digits 14-3 Ns No. of times overall check has already been 

reached. 
Digits 2-0 Ls No, of addition to check by monitor 

Parameters used (I) to (I4) 

(11) = Extra time allo^ved for monitor, (digits 22-3) 

(12) = Lower limit for blocktimers T 

(13) = Monitor marker local time exceeded 

(14) = Monitor marker total time exceeded 



Cross references 



(2) 

(4 
(5) 
(6) 
(9) 
10) 



9(3/303, 
(2/700 
(21/303] 
(20/303) 
(9/205) 
(4/203) 
(3/203) 



Return address to update timers 
Entry to Monitor Interrupt and SER 
Check time of ciu?rent program 
Program Instruction Counter timers 
Current program number in charge of store 
Program store directory 
Block timers/status directory 



O 



Connections with other Routines 

Entry at ( 1 ) from R303 when current timer exceeds check timer 

Exit (a) to "Program Monitor Interrupts and SER" at 2/7OO with 
B126 odd 

B102 = 9(3/303) = Return address 

B100 = Monitor marker for local or overall time exceeded 
B101 altered 



16.7.62 
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R7O4 continued R704/2 

Exit (b) : To 9(3/303) if more time allowed. 
BI04, 109, 110 unaltered 

Temporary working space : Bl 00-1 03, BI05, Bt 

Uotes s 

1 . This routine is entered from "Update Timers" when the timer of 
the current program in store exceeds the check timer (also of the 
current program). Return is to continue updating timers. 

2. If the local check time has been reached (check timer digit = I), 
it is replaced hy the overall check timer and monitor is entered, 

3. If the total allovved time has been reached, the check time is 
increased by a fixed amount to permit monitoring, and monitor is 
entered. This error cannot be trapped. 

4. If further units of time are allowed, the overall timer count is 
adjusted, and the check value C is subtracted from the current timer 
and also from all timers T in the block timer directory, A lower 
limit (negative) is placed on these ticers, to prevent overflow 
when subsequently con^juting page timers T. If a local timer is 
still in force, the check timer is adjusted accordingly. 



O 
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FIXED STORE COLUMN 4OG34 

(o) = 210*40034 
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R704 



I Instruction counter monitor 



1) 



o 



(11) 

(12) 
(13) 
(I4) 

(3) 

(3) 

(4) 

(5) 
(6) 

(9) 

(10) 

101, 
211, 
121, 
101, 

113, 

ii3, 

121, 
121, 
101, 
165. 

215, 

124, 

113, 
121, 
121, 
121, 
124, 

113. 
101, 
101, 
165, 
127, 
101, 
122, 
170. 
227, 
127, 
124, 

113, 
124, 
122, 

215, 
110, 
101, 
214, 
124, 

113, 

113 r 
121, 



1000 

*6 

*oi 
*i 

9(3/303) 
(2/700) 

(21/303) 

(20/303) 

(9/205) 

(4/203) 

(3/203) 

100, 

126, 

100, 

101, 

0, 

101, 

102, 

126, 

101, 

102, 

126, 

101, 

101, 

101, 

100, 

126, 

101, 

101, 

101, 

102, 

103, 

102, 

103, 

105, 

105, 

126, 

105, 
105, 
103, 
102, 
126, 
100, 
101, 
126, 
101, 
101, 
100, 
126, 



0, 


(4) 


100, 


7(0) 


0, 


(13) 


0, 


(7) 


0, 


(7) 


0, 


<4) 


0, 


(2) 


0, 


0.1(3) 


0, 


(8) 


101, 


*777 


102, 


6(0) 


0, 


0.1 


0, 


(8) 


100, 


(11) 


0, 


(I4) 


0, 


4(1) 


0, 


^*777 


0, 


(8) 


0, 


(6) 


101, 


(9) 


102, 


1023.4 


0, 


*7776 


103» 


(10) 


100, 





0, 


(12) 


0, 


3(0) 


0, 


0.7 


0, 


(12) 


103, 


(10) 


0, 


0,4 


0, 


1024 


102, 


-9(0) 


101, 


(5) 


0, 


(7) 


101, 


4(0) 


0, 


0,1 


0, 


(4) 


0, 


(7) 


0, 


(3) 



4 sec, extra time 
Lov/est block timer 
Local time 
Total time 

Return to update timers 

Mbntior 

Check time 

Timers 

Program in store 

Store directory 

Block timers 

<- ENTRY 

JUMP IF NOT LOCAL CHECK 

SET RIARKER LOCAL TIME EXCEEDED 

OVERFL0V7 CHECK TO ZERO 
RESET CHECK TIRIER 

)EXIT TO R70O AND THENCE TO R303 

)JUMP IF COUNTER NOT EXHAUSTED 
) 

)ACCUf/IMULATE ADDITIVE COUNT 
MODIFIED CHECK TIMER 
MARKER OVERALL TIME EXCEEDED 
TO MONITOR 

)STEP TO NEXT SECTION 

)SET UP COUNTERS TO SCAN BLOCK TIMERS 

) 

) 

SUBTRACT CHECK TIMER 

)IF TOO SMALL REPLACE BY STANDARD 

) 

) 

)STEP THROUGH TIMERS 

) 

) 

FORM NET'/ NUMBER OBEYED 

)FQRM NE\? CHECK AITD OVERFLOV/ CHECK 

) 

) 

) 

RETURN TO R303 
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-^7Q6,. Set, read instruction counter ^'^^ 

PuTHses To perform the extracode to set a local instruction counter 

^ ;S. ! « instructions) and to read the number of instructions 

/-~\ remaining to he done. 

Register of Fixed Store ; 23 

Instructions ohe.ved s 9-10 (BSad) 

9-18 (Set) 

Interrupts inhibited for a maximum of I7 instructions. 
Parameters used ; (1) to (8) 

Cross references ; 

(4) = (5/203) Current program number 

(A '^ ) 20/303) Progratn instruction counters 

y) = C 7/704) Program timer overflow 

C5) = (21/303) Check timer 

Connections with other routines ; 

Entry at (I) from "read" with B126 odd (digit = I) 
from "write" with B126 even 

with BII9 = n (write) [n = s Reset local counter to master 

counter I 
B121 = ba (read). ^ 

Exit! To main control ^vith BII9 altered, and ba holding no. 
W of instructions yet to be done (digits 23-3) in case of read. 

Temporary working space s B9I, B101, BII9 
Notes; 

1. The unit counter is 2048 instructions. 

^* l^tt I ^"J'^'il^^'^ previous local setting to be removed. If entered 
descri tioi °°"^*®r resets to the overall counter set in the job 

3. It is not possible to exceed the overall counter by use of "set" If n 

loca? ttlT'^lr^K "^"'i -^^-^q^-ntly give the number to go before the 
local trap, although m fact the overall trap will occur first. 

4. If "read" is used before a local timer has been set, the result will 
be the number of instructions to go before the Supervisor check value 
this wint: .? '\'^'%'^ - P^°S^^- Of less thL 30 mins.duration' 
tr^: Sf ±. '! r!S °!/"^*^"°^^°- *° ^^ °^-^^^ ^^^ore an overall 



O 



trap and monitor is entered. 
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Acquiro blockc aor conpll:&r 



O 



1) 



(2) = 


*001 






(3) = 


(4/203) 






(4> = 


(5/201) 






(6) = 


(1/215) 






<5) = 


(21/261 ) 






(7) = 


(4/247) 






121, 


loo, 


0, 


(7) 


101, 


102, 


106, 


(3) 


IS4, 


102, 


0, 


(2) 


113, 


126, 


0, 


(4) 


121, 


109, 


0, 


(5) 


121, 


126, 


0, 


(6) 



14 excess blocks 

I Store directory 

I Re-entry address 

jset fr switch 

|Alt, entry to End Compilinc 

I Reset fr switch and exit 

I Link for main etore 

I Step block counter 

I Exit setting full recovery switch 



o 



o 
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R709/1 

R709 Off I'ine program monitor 

Purpose i To trap a program for failure occurring off line, when the program 
may not he currently in control of store e.g. looked down page when 
r~^) using eztracode "Read to Page P", errors and faults in on-line 

"^' peripherals etc. 

Registers of Fixed Store s 27 

Instructions oheyed s 5 to 9 on entries 1 5 2 

13 on entry 3 (7 with interrupts inhibited). 

Parameters used ; (I) to (I4) 

(4) = Monitor marker for page trap £a single digit in range P22 to P127 
(10) = Ifesk of all other digits in range P22 to P11 = *3777 - (4) 

Cross references ? 

(5) = (6/315) Alternative entry to drum queue 

(6) = (8/227) Program monitor directory 

(7) = (9/205) Current prograa in control of store 

(8) = (16/202) Supervisor exit trap 

(9) = (18/202) Normal setting of (8) 
11 J = (7/201) SER base 
12) = (8/299) Entry to Main Store Off line monitor 

(13) = (14/700) Alternative entry to Program Monitor 

(14) = (5/201) SER entry address 

Connection with other routines ; 

Entry at (I) from R331 (Page extracode) if page P locked down with 
B100 = Page nvimher P digits 11-3 remainder zero 
B106 = Program number digits 8-2 
at (2) from other off line error detection with 

B100 = Error marker (digit in range 22-12 plus 0.1) 

BIO6 = Program number 

B110 = Return address from R709 

Exit to Return address with B100 altered 

Entry at (3) from R202 under interrupt control to trap before resumption of 

program.. 

Exit (a) to Main store off line monitor if any fault other than a page 
fault is detected with 

B100 = Program monitor directory of current program. 
Digit 23 of this set to 1 in store, otherwise unaltered 
B102 = Current program number, digits 8-2 

Exit (b) to Program Monitor Interrupt at (I4/7OO) if only page error 
detected with 

B100 = marker for page error 
BII9 = page no. P digits 11-3 Remainder zero, 

^ Program monitor directory of current program set to zero except 

'^> digit 1 tinaltered. 

Temporary working space s Entry 1 s BlOO, B110, Bt 

Entry 2 s B100, Bt 

Entry 3 s B1 00-1 03, Bt 

16.7.62 
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R709 continued 



Notes s 



O 



1. On entry 1,2 the program monitor directory of the program is 

set to hold the fault markers, digit is set to 1, digit 1 remains 
unaltered. If the program is currently in control of store, the 
supervisor ezit trap is set to cause entry to (3) before resumption 
of the program. 

2. Before resumption of the program, if only a page trap has been 
detected, exit is to R7OO sjid thence to normal trapping and 
monitoring. If any other fault has been detected, exit is to a main 
store routine to .preserve working registers and to enter an off line 
trapping routine. 



O 



O 
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R710/1 

R710 ilain store monitor 

Purpose ; A routine in main and eztracode control, obeyed from core store, 
which prints a description of all detected faults (program and 
computer faults, where the latter affect an object program) on out- 
put stream of the object program. On conclusion, exit is to a 
private monitor sequence or to the standard monitor post mortem. 

Registers of Main store (program) s 92 

Instruction obeyed s Approximately 11X(no, of characters printed) 

Ifein store tables and v/orking space s 

(16) = "Standard messages " 

A table containing standard messages in internal code 6 bit 
characterf., packed four to a half v/ord each message ending with 
character (octal) 00 or 77. Total length and composition un- 
defined as yet. 

(15 ) = "Message locations for multiple faults " 

A table of successive half words, entry n giving start 
relative to (16) of the monitor message for fault recorded as 
digit 9 + n in the record description in B9I on entry to this 
routine, I5 half words. Messages may start at character 
addresses within the table (16), not only at the beginiaing of 
words or half words, 

r^ (14) = "Message locations for single faults " 

As (15) only half word n corresponds to fault no. n rooorded 
in digits 8-2 of B9I on entry to this routine, 

(12) = "Temporary dump area " 

11 words holding original contents of B127, BII9, B80 - 99 
for recovery on exit from this routine, 

(17) = "Powers of 10 " 6 consecutive half words, entry n = 10 , digits 

23-3. Digits 2-0 zero. 

Parameters used s (I) to (22) 

(13) = Number of multiple fault indicators (maximum) in B91 
on entry in digits 23-2 =7.0 (digits 22-9) 



O 



Cross references 8 



(7/202) Current program branch indicator 

(6/203) Page directory 

(5/203) Current program number 

(15/204) Program switch directory 

(1/711) Entry to standard monitor post mortem 

(1/236) Exit from processing 
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R710/2 

R710 continued 

Connections with routines ; 

a) Entry at (I) from "End Program" extracode via "Enter processing" in 
extracode control. 

E3:it to (1/712) in extracode control with program hranching killed 
if it was in use. 

"b) Ei:itry at (2) from "Enter Monitor", R702, via "Enter processing" with 
B92 even. 

B9I = Fault record 

Digit = if private monitor allov/ed 

1 if private monitor not allov/ed 

Exit to (1/711) "Standard monitor post mortem" under main control 
if no private printing after descriptive print, with 
original contents of B127, BII9, B80 - 99 recorded in 
successive half words from (12/7IO) 

or to "Exit from processing" at (I/236) to enter private print with 
BII9, B8O-99 as on entry (B92 = original main control, B9I = fault 
record. 

BI27 = Private print address 

BI26 odd 
Entry to E236 is under extracode control, entry to private print 
under main control. 

c) Entry at (3) in main control to print message with 

B85 = Start of message relative to start of tahle, (I6) 

B87 = Return address 
Exit to return address with message printed up to character or 
77. If the terminating character is only the message is printed. 
If it is 77, the message is followed hy contents of BII9 on entry, 
printed as "signed decimal integer .octal fraction". No layout 
is included. The selected output is used. 

Working spaces B81 - 83, B85 - 86, B9I - 97 

If BII9 is not printed, B85 hold next character position in 

table to return. 

d) Entry at (4) in main control to print signed B line, B86 

Entry at (5) " " " " " unsigned B line (digit 23=0) 
with B86 = quantity to be printed 

B85 = no, of figs/spaces required digit 5-2. 

Remainder zero. 
B87 = return address 

No layout is printed. The selected output is used. Per style of 
printing, see note (3). Working spaces B81 - 83, B85 - 86, B9I - 97 

e ) Entry at (6) .to re-enter private monitor sequence. Entry in main 
control. B80-99, BII9 are recovered. B127 set and the private 
sequence entered under main control 
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R710 continued 




Subroutines 




Uses extracodes 




1060 
1064 
1066 


Select output 
Print 1 character 
End Record 
Pick up one characte 


Temporary working spaces B8I - 93, B,, B1 


One exit to private print, 
not B^, B121. 


Notes s 





R710/3 



B8I-99 SI'S restored but 



O 



O 



1. 



If program branching is in use, it is killed (made inoperative 
by setting a switch;. 



2. Output stream is selected, and 3 "NL" are printed, followed 
by the fault description, followed by BII9 if applicable, 
followed by "NL", If multiple faults have occured, descriptions 
are printed on separate lines, 

3* BII9 is printed as 

Sign (Space or Minus) 

Digit 22-3 as a decimal integer to at most 6 figs. Leading 

zeros are omitted and not replaced by spaces , If digits 

22-3 are all zero, "0" is printed. If digits 2-0 are zero, 

spaces are printed so that the total number of characters 

excluding sign ia 8 

If digits 2-0 are not zero, "." is printed followed by digits 

2-0 (octal) and spaces are then printed so that the total 

number of characters excluding sign is 8. 

The subroutine used to print can be used generally to print to any 
total number of figures by entry vdth B85 = number figures, digit 
6-2. Here B85 =4.0 The sign, if required, is additional to this 
number, 

4* The routine operates in main store and requires modification to use 
fixed or subsidiary store. A tomporai'y version, Kl'dO, oan opei*ata 
in subsidiary store. 
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R711/1 
Rlli Standard monitor post mortem 

O ^H£E£2e^ To print standard post mortem information on output stream of 

S tr4L^''°ff."^ ^^''" -^^^^^-^i^^ °f a f^ult. The instructions 
in location M,M-1 are printed, together with the contents of the 
B line used m these instructions. The contents of B lines 1 to 
• are then printed, followed hy the accumulator (single leni.i° 

SJJltf;.'"^ %' '■""°''°" ^°'^°"^^ ^^ ^^^ octal ex^nent)flf' 
SstS °ff ^*"°,^^P«^ ^e in use, the position of each tape is 
listed. The routine finally tests whether the program is to be 
dumped, and exits to the dump routine or to End PrJ^f 

Rggisters o f main store (program) 206 

Instructions oheyerl Principally print instruction, 1V.(no. of character 

printed) 
Subsidiary store 

^44) = "Current program dump description " 

On half word in the current program working area 
describing action on dump. 

?^^^! ^i.^J ^° ^"™P required. Remainder irrelevant 
mgits 23-0 = system dump where applicable 
Otherv/ise dump on private tape B block n 
DigiiB 8 - 2 = B 
^--^ Digi-te 21-9 = n 

(45) = "Dump tape description " 



One half word holding 

if no dump tape 

Digit 23 = 1 In use 

Digit = 1 Required for further use. 

Remaini:^ digits describe tape no. a^d current position 

(not used by RTH). ^ J-^J-on 



Parameters used (l) to (47) 

(13) = Limit of public block labels = *34 

toV\ " l"^}^^ of B lines to be printed (digits 23-3) 

r?R ^ I'^l^'' °l figures in accumulator print (digits 23-3) 

(28) = Number of tape decks (digits 23-3) 

(lil " -^^T"^ instruction counter for dumps (digits 23-3) 

foil ^ f'^^^ss of floating point zero, exponent -128 

}Z^( = ■' ^''o^d working space (main store) 

U5j = Address of fixed point 10 2 0/1.2 



^ (23) = 



(21) = f^i'/^^.^J^l^tZV^ ^*^* °^ ^^^^^ °^ standard message 

(16/710) of "UNALLOCATED" 

(22) = Address relative to start of table of standard message 
^ ^ (16/710) of "ACCUiULATOR" ^'^^^a^e 

(i6AioY:?"Tipy° ''^' °' '^''^ °" ^'^^^^^ --^^^ 
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R7 1 1 c ont inued R? 1 1 /2 

Cross references 

(3) = (3/710) Subroutine Print message 

(4) = (4/710) Subroutine Print signed B line 

(5) = (5/710) Subroutine Print unsigned B line 

(8) = (1/201) Enter Supervisor 

(9) =^ (1/202) Program Scan 

(10) = (5/203) Current program number 

(11) = (4/203) Program Store Direct ory 

(12) = (12/710) Working space 
(14) = (2/203) Block directory 

(32) = (6/710) Re-enter private monitor 

(33) = (2/712) Alternative entry to End Program 
(35) = (3/204) Halt main program 

(36^ = (1/715) Entry to Dump object program 

(37) = (5/221) Deck allocation directory 

(38) = (5/201) SER re entry address 

(46) = (8/704) Current program overall times 

(47) = (20/303) Program timers 



O 



u 



Connections v/ith other routines 

Entry at (1) from R710 with temporary dump area, (12/7IO) containing 
original Mj BII9, B80-99 in consecutive half words. 
Entry is in Main Control 

Exit a) To End Program at( 2/712) in main control if no dump required 

b) To Dump object program at ( 1/715)* Entry In Supervisor in 
extracode control with 

B100 = Current program dump description (digit 23 = o) 
or Dump tape description, digit 23 = 1 

c) To Halt Main Program at (1/204) if dump tape in use with 

B110 = Program 

BIO9 = Dump tape number (digits 8-2). Digit 0=1 
Remainder zero. 
Entry in Supervisor, using extracode control. 

Alternative Entry for subroutine "Find decks" 

Entry at (30) in extracode control (not in supervisor) with 
BI26 odd 

B90 = one less than number of decks, digits 23-3 
B84 = Return address in Main Control when deck 

directory has been scanned. 
B96 = 2(30/711) 

Exit (a) s Current main control if deck found with 
B89 = Programmers deck label, digits 8-2 
B90 = Absolute deck number, digits 8-3 

(b) to Address in B84 in main control when no more 
decks found. 
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R711 continued fi71l/3 

Re-entry after Exit (a) to continue search, 

at (30) in extracode control v/ith. 

B126 odd 

B90 unaltered 

B84 Return address when deck-directory 

B96 = 10(30) 
B89> 9T5 100, 101 used as temporary working space 

Subroutines 

(a) "Print message" Entry at (3/7IO) in main control 

B85 = Start of message relative to 

start of table. 
B87 = Return address in main control. 
Uses B8I-83, 85-86, 91-97 

("b) "Print signed B line" Entry at (4/7IO) in main control 

B85 = no. of figures, digits 5-2 
B86 = quantity to he printed 
B87 = return address in main control 
Uses B8I-83, 85-86, 91-97 

(c) "Print unsigned B line" Entry at (5/710) in main control 

B lines as for (h) 

(d) Enter Supervisors Entered at (1/20I) in extracode control with 

interrupts inhibited. 
B96 = Entry address in supervisor 
(y^ Exit to entry address in supervisor 

(e) Program Scans Entered at (l/202) to exit from supervisor to 

main control 

(f) Re-enter private monitors Entered at (6/7IO) in main control 

to recover B lines and exit to private 
monitor 

Temporary working space B8I - 97, B. 

Extracode used s 

Uses extracode 1066 End of Record 

1064 Print 1 character 
1157 Exit to Extracode 



O 



Notes! 



1, Printing includes current instructions, B lines Accumulator, 

and Tapes as follows s- 

a) Current instructions Instructions M-1, M printed on separate 
lines. 

ORDER (address M-1/m) (fn), (Ba), (Bm), (s) B(a)=(ba) B(m)=(bm) 
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P711 continued P71l/4 

24 "bit registers printed as sign, digits 22-3 as decimal 

integer, digits 2-0 as octal digit follov/ing "." . These omitted 

if digit 2-0=0, 

Function printed in octal, 4 figures leading zero omitted for 

basic codes Ba, Bm printed as decimal integers, 3 figures 

B(a) = ("ba) omitted if a = 

If control address is in private store, or is^*34j or if the store 

block is not defined, the address is followed by "UlTALLOCATED" , 

b) B lines Contents of B lines 1 to n are printed as signed decimal 
integers (digit 23-3) followed by "." (octal digit) unless digits 
2-0 = 0. 4B lines are printed per line of print. 

o) Accumulator Printed on a separate line as 

ACCUIjIULATOR (Contents of M as fraction, signed unstandardised)/ 
(octal exponent as a decimal integer, signed). The exponent 
guard digit is ignored. 

d) Tapes If private tapes are in use, these are listed on separate 
lines as TA-'"E (program label) at (Block number )/(Word no*) 
the ?/ord number being omitted if zero (e.g. if fixed block transfer 
used) . 

2, If private printing is allowed and has been requested at this tage, 
it is entered after the standard printing, recovering BII9, B80-91j 
and setting B92 = original main control. 



O 
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RT12/1 

R712 End Program 

Purpose ; A routine obeyed from main store, entered from End Program and 
after standard monitor printing to terminate an object program. 
The number of instructions obeyed and tape waiting time if any 
are printed on output stream 0, all output streams are closed, 
all tapes if any disengaged and rev/ound, any reserved bands are 
lost and exit is then made "in supervisor" to the routine "Clear 
Program". 

Registers of Main Store (program) s 115 

Instructions obeyed ; 

Subsidiary store ; 

(25) = "Effective tape engage time" 

One half word in the current program v/orking area 
holding effective time for which all private tapes have been 
engaged in units 0.1 sees, digits 23-0, Updated on engage, 
disengage tapes. 

Parameters used ; (I) to (38) 

(15) = 2 words working space in main store, first half of each zero 
= 1 word working space in main store 
= Address of constant 0/50OOOO 
= Address of fl.pt. 0.1, exponent zero 

= Address relative to start of table of messages (I6/7IO) of 
"INSTRUCTION COUNTER" 
(27) = Address relative to start of table of messages (I6/7IO) of 
"TAPE THE" 

(32) = Parameter no. of "output stream record" in parameter list 

(33) = 2 words v/orfcing space for output stream = (1/712) 

(34) = Number of output streams (digit 23-3) 
(36) = Number of bands on drums 

Cross references ; 

= (3/710) Print message 

= (4/710) Print signed B line 

= (5/7IO) Print unsigned B line 

= (1/201) Enter supervisor 

= (1/202) Program scan 

= 8(6/710) "Exit from processing" instruction in extracode 

= (5/203) Current program number 

= (20/303) Program timers 

= (21/303) Check timer 

= (8/704) Overall timer 

= (11/704) Time allowed for monitor 

= (15/711) 3 figure print entry 

= (3/303) Update timers 

= (28/711) Number of tape decks 

= (30/711) Alternative entry to R711 

= (4/702) One word in Current Program working area to 
hold Inst. Counter. 
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R7I2 continued 

(35) = (45/314) Ifumber of drum tranafex- 

(37) = Band directory 

(38) = (1/215) Recover main 

(39) = (1/714) Clear program 

Connections with other Routines ; 

Entry at 1 ) in Extracode control from R7I on End Program 

at 2) in Main Control from R7II or R715 on Monitor with output 
stream selected. 

Exit to Recover main at (I), in supervisor j with 

BI09 = Return -address 1/714. In supervisor 
Return to I/714 to clear program. 

Alternative entry from Extracode '"Read Instruction Counter to Acc;l' via 
R233 (Enter processing) 

Entry at 6) 

Exit to R236 (Exit processing) via R7IO with Ace. 

= Instruction counter, B9I , 9^-97 and 

B1 00-1 10 altered. 

Subroutines ? 

(a). "Print message". Entry at (3/7IO) in main control 

B85 = start of message relative to start of table 
B87 = return address in main control 
Uses B81-83, 85-86, 91-97 

(b) "Print B line" Entry at (4/7IO) (signed) (5/7IO) (unsigned) in 

main control with 

B85 = no. of figures, digits 5-2 

B86 = quantity to be printed 

B87 = rettirn address in main control 

Uses B81-83, 85-86, 91-97 

(c) "Enter supervisor" Entered at 

(1/201) v.'ith B96 = Entry to Supervisor routine, 
return to M l(l/20l) with B96 = Entry to SER 
B97 = Return address in extracode 

(d) "Program Scan" Entered at (1/202). Exit to main or extracode 

(e) "Update timers" Entered at (1/303) in extracode, in supervisor. 

B110 = Return address in supervisor, 

(f) "Find decks"? Alternative entry to fi711 at (30/7II) 

Entered in extracode control with 

BI26 odd 

B90 = Deck counter 

B84 = Return in main control when no more found 

B96 = 2(30/711) on first entry 

10(30/711) on subsequent entries 

(g) Uses extracodes IO6O Select output 

1066 End record 

1064 Output 'one character 
1157 Exit to extracode 
1140 Read parameter 

Pick one character 

1067 Break output 

1016 Disengage tape 

Lose band 

16,7.62 
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R712 continued 

'Temporary working space s 

B8l-97j Bt 

Vfords (15), 1(15) (16) (33) 1(33) in main store block holding 

this routine. 



Hotess 



O 



O 



1 . Printing occurs on output stream of the object program and is 
preceded by 3 "Mj" 

2. The total number of instructions obeyed is printed in units of 2048, 
If in escess of 5«''0 j the member ia wealed by iO until it ia 
within this range and the resulting value and exponent are prinLod 
e.g. HTSTRUCTIOH COUHTER 4321 

or INSTRUCTION COUUTER 12345/2 

3. If private tapes are in use, the total effective tape engage time 
is printed in hours, miES, sees, etc, 

e.g. TiiPE TIME 12M 5.2 S 

4. All tapes in use are disengaged (the extracode routine will print 
operator instructions) all output streams are terminated and any 
reserved bands are "lost". Note digit of "no, of drum transfers" 
= 1 if any bands reserved. 

5. The routine operates in main store, sharing a block with R7IO, 711. 
Should extra space be required, R712 can be broken. The block forms 
part of the object program during its use. Exit is to a supervisor 
block holding R714 "Close program". 
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R 720 
R72O Temporary main store monitor 

() Purpose s A temporary version of R710 (main store monitor) for Supervisor 

Version 1 . Prints a description of all detected faults on the 
output stream of the object program and exits to a private monitor 
sequence or to the standard monitor post mortem. 

Registers of Main Store (program) s IO7 

Instructions oheyed ; Approximately 11X(no, of characters printed) 

Specification : As for R710 in effects with the following alterations 

a) Parameters (60) (64) (66) are useds 

(60) = Enter for Extracode subroutine "Select output for internal 
code". Entered in extracode control. Exit to rettirn address 
in B99 in extracode, 

(64) = Entry for Extracode Subroutine "Print 1 character" 
Entered in extracode control with 
B98 = character (digits 5-O) 
B99 = Return address in extracode 

{66) = Entry for Extracode subroutine "End record" 
Entered in extracode control with 

B98 = Carriage control information (as in extracode IO66) 
(^ B99 a Return address in extracode, 

(21) = (1/721) 

b) Temporary extracode 1477 is used 

c) Ho notice is taken of program branching 

d) The routine uses extracode control, except for subroutine (61 ) (64) 
{66), which enter main control and use extracodes1060, 1064? IO66, 
1477, Replacement of this section enables the routine to be tested 
in subsidiary store. 
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RT21.1 
R721 Temporary standard monitor post mortem 

Purpose s A temporary version of R711 for the intermediate supervisor 

prints a standard post mortem on the output stream of the object 
program and esits to a private monitor sequence or to End Program 
(R722) 

Registers of Ivlain store (program) 174 

Instructions oh eyed Principally print instructions, 

11 X (no. of character printed) 

Parameters used (l) to (45), (64), (66) 

(13) = Limit of public block labels = *34 

(19) = ITumber of B lines to be printed (digits 23-3) 

(24) = Number of figures in accumulator print 

(27) = Address of floating point zero, exponent -128 

(26) = 1 \¥ord v/orking space (main store) 

'25) = Address of fixed point 10s 0/1.2 

20) = Address relative to start of table of standard messages 
(16/720) of "ORDSR" 

(21) = Address relative to start of table of standard messages 

(16/720) of "UlTALLOCATSD" 

(22) = Address relative to start of table of standard messages 

(16/720) of "ACGU15ULAT0R" 

Cross references 

(3) = (3/720) Subroutine Print Message 

(4) = (4/720) Subroutine Print signed B line 

(5) = (5/720) Subroutine Print unsigned B line 

(8) = (1/201) Enter supervisor 

(9) = (1/202) Program scan 

(10) = (5/203) Current program number 
(il) = (4/203) Program store directory 

(12) = (12/720) Working space (temporary dump area) 

(14) = (2/203) Block directory 

(32) = (6/720) Re-enter private monitor 

(33) = (2/722) Alternative entry to End Program 
(40) = (6/201) Main program controls 

(64) = (64/720) Print one character 
(66) = (66/720) End record 

Connections with other routines 

Entry at (1) in extracode control from R720 with temporary dump 
area (12/720) containing original M, BII95 B80-99 
in consecutive half v;ords. 

Exit? (a) to End Program at (2/722) in extracode control 

(b) to (6/720) and thence to private monitor if private 
printing required. 
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O R721 continued R72l/2 

Subroutine s 

(a) Print messages Entry at (3/720) in extracode control. 

B85 = start of message rela,tive to start of 

message table 
B87 = Return address 
Uses B8I-83, 85-86, 91-99 

(b) Print B line % Entry at (4/720) (signed), (5/720) (unsigned) 

B85 = no. of figures, digits 5-2 
B86 = quantity to be printed 
B87 = return address 
Uses B8I-83, 85-86, 91-99 

(c) Enter Supervisors Entered at l(l/20l) in extracode control with 

interrupts inhibited. 

396 = Ehtry adciress is supervisor 

B97 = Extracode address for exit from supervisor 

(d) Program Scans Entered at (1/202) to exit from supervisor to 

extracode control. 

^-^ (c) Re-enter private monitors Entered at (6/720) in extracode control 

Q_J to recover B lines and exit to private monitor. 

(e) Temporary extracodess R720 entered at (64)5 (66) to replace 

extracodes* 

{64)0 Print ohciracter from B98 (digit 5-0) a^d return to address 
in B99 i^i extracode control. 

{66)'t End record, 398 = Carriage control, and return to address 
in B99 13^ extracode control. 

Temporary working 5pa,ce s B84-99> Bt 

Notes ; 

1. Printing is as described for R711 except that section (d) 
(Eote 1) is omitted, 

2. Private monitor majr be entered as in R711. 
3« K'o dumping is permitted. 



o 



4. Extracode control is used throughout. Replacement of subroutines 
(64), (66) allow testing of this routine in subsidiary store. 
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^ R722/1 

H7 22 Temporary end program 

Purpose? A temporary version of R7I2 (End Program) for use with the 

Intermediate Supervisor. After end program or monitor, punches 
run out characters on the output stream and enters an S.B.R. 
to the queue to start the punch. Clears the input well, dis- 
engages the reader where appropriate, and if required enters 
an S.E.R, to the queue to start the reader. Prints a message, 
including time, on operators output and finally exits to "Clear 
program" . 

Registers of Main store s (program)! 69 

Insiructions oheyed s Around 136 + time to output characters 

Main Store Tables ; 

(6) = "Current control number" 

One half word, digits 4-3 = control desk in current control, 
remaining digits zero 

(12) = "Punch control table" 

4 alternate half words in main store, entry n for punches n, 

Digit = 1 if punch in action, if idle 

Digit 1 = if waiting to be engaged, 1 otherwise 

Digit 23= 1 if buffer empty, and not reserved, if in use for 

current program. 
Remaining digits not used or altered by R722 

(13) = "Reader control table" 

4 alternate half words in main store, entry n for reader n 
Digit 0=1 if temporary stop, if end of document or failure 
Digit 1 = 1 if engaged, awaiting start, if no engaged 
Digit 23= 1 if buffer in use by program or av/aiting use by 
program 
if buffer empty or filling from peripheral 
Remaining digits not used 

These may occupy the same block of store as R720, 72I, 722 or may occupy 
any supervisor block in main store. 

Parameters used ; (I) to (26), (60), (64), (66) 

(4) = Length of run out, Number of uC characters to space output tape, 
digits 23-3 

(7) = V-store address of TR5's = *6004l6 

(17) = Location in main store of message "DESK n END" (see note 4) 
(20) = Number of "NL" on output punch to space output, digits 23-3 

(8) = Subsidiary store address of TR5's, 

Cross References 8 

O ^5) = (1/201) Enter supervisor 

(9) = 7(3/230) Enter SER to slow queue 

(10) = (2/724) Temporary Start punch SER 
('''') = (5/724) Temporary Start reader SER 

(14) = (5/201) SER Re-entry address 

(15) = (1/220) Reserve operation output 

(19) = (1/240) SER Print string on operators output 
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R722/2 

R722 continued 

(18) = -3(54/724) Disengage and free reader 

(21) = (6/229) One second clock 

(22J = (12/229) Excess clock counter 

(23) = (2/240) SER Print one character on operators output 

(24) = (3/240) SER Print layout 

(25) = (2/220) Free operator output 
(60) = (60/720) Select output 

(64) = (64/720) Punch one character 
(66) = (66/720) Punch layout 

(26) = (1/723) T-emporary clear program. 

Connections with other routines 

Entry at ( 1 ) from End Program via R720 in extracode control 
Entry at (2) from monitor via R721 in extracode control 

Exit to "Temporary clear program and job scan" via 2/220 with 
B9I = current control number 

Alternative entries, in euperyisor, 

At (16) from "Temporary start job" to print DESK, n STARTED, 
time with B95 = Return address to Supeirvisor- 

B94 = Start of message (in character 3> half 

word S K (space n blank) 
B108= Current control number, digits 4-3 
Exit to return address with B935 94J BIO5-IIO altered 

At (3) "fco print time v;ith operators output reserved 
B95 = Return address in supervisor 

Return after printing time, WL, ;vith output channel freed, 
B93, 94, 105-110 altered 

Subroutines ; 

a) Temporary extracodes R72O entered at (60), (64) {66) to 

replace extracode 

(60) I Select output for internal code and return to address 

B99 in extracode. 
(64) s Print character from B985 digits 5-0? and return to 

address B99 extracode, 
(66) i End record, B98 = Carriage control, and return to address 

B99 extracode. 

b) "Enter supervisor" Entry at I/201 with interrupts inhibited, 

B96 = Address of entry to supervisor 

c) "Enter SER to queue" Entry at 2/206 via 7(3/230) 

El 07 = (slow queue) 
BIO8 = Current control number 
BI09 = Start of SER 
B110 = Return address 
Return with BIO6, I07 altered, 

d) Start punch, start reader SER's entered via 2/206 v;ith B100 

= Private store of Reader 

e) Reserve and free operators output? Entered at 1/220 with 

B100 = 

B110 = Return address 
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RT22/3 
R722 continued 

f ) "Operators output print", R240, entered at 

(2/240) s Print 1 character, internal code, from B109j 

digit 5-0 
(1/240) s' Print storing, internal code, from store location 

in BI09, digits 23-0. BIO8 = no, of characters, 
(3/240) s Print layout. BIO9 = carriage control information 

as for extracode IO66. B110 = Link in all cases, 
(28/240)? Break Output. 

Temporary working space ; B9O-99, B100, BIO7-IIO 

Notes s 

1 . A succession of JCIL is punched, followed by a succession of UC 

2. An SER is entered to the slow queue to start the output punch. 
If not engaged, the request waits until the punch is re-engaged, 
when output is continued, 

3. The input well is recorded as empty. If the reader is engaged 
to read in more of the current program, it is disengaged. If 
it is engaged v/aiting to read another program on SER is entered 
to the slow queue to start reading o 

4. The message 

BESK (n) MD (Time) (Mj) 
is printed on the operators output. Time is printed as 
(Hours) . (Mins) , (Seconds) , (Tenths of seconds) 
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R723/1 

R723 Temporary clear program and job scan 

Purposes A temporsjry supervisor routine for the intermediate supervisor, 
entered from End Program (R722) to lose all store blocks of the 
current programs and to scan for the nezt available program. ' If 
no control desk is ready, the idling program is entered. 

Registers of Main Store s 31 

Instructions obeyed s Maximum 32 + I4 (no, of blocks) . 

Parameters used s (1) to (18) 

(4) = LoY/est reserved block label, digits 22-3. Rest zero 

(7) = V store address of teletype punch = *60042 
(18) = Current control desks One half word in main store holding 

desk in current control (digit 4-3). Rest zero. 

Cross references ! 

(3) = (1/727) Temporary "Start Job" 

(5) = (5/203) Current program number 

(6) = (9/207) Leading program number relative 

to program status directory. 

(8) = (16/222) Entry to timed idle 

(9) = (3/203) Block timers 

(10) = (6/202) Program change marker 

(11) = (14/314) Alternative entry to Lose Block 

(12) = (12/722) Punch control table 

(13) = (13/722) Reader control table 

(14) = (4/203) Program store directory 

(15) = (9/204) Program directory 

Subroutine 

"Lose block" entered at 1 (14/314) to halt if block locked out and 
lose block otherwise 

B101 = Block label (digits 22-12), rest 

B100 = Return address 

BI05 = Block directory location 

BI07 = Lock out status (digits 2-0 of Block Timers) 

B102 = Program number 

Return to return address with BI05 unaltered. 
Connections with other routines 8 

Entry at (1) in supervisor from R722 with B91 = current control number 

^-^ Exits (a) To start program with B9I = new control number, digit 4-3 

^^ (ti) To idle via (16/222) if no program ready, which enters 

program scan on conclusion. 
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R723 continued R723/2 

Temporary working space s B90-94j BIOO-IO7 



Notes 



1. Only blocks with labels less than a present limit are lost from 
the current program area. These entries are set to zero, and the 
block timers remain unaltered. 

2. The control desks are scanned cyclically from the current number to 
find one for which the reader is stopped and waiting and the output 
buffer is empty. If one is found, exit is to start program, 
0ther,7ise exit is to the idling program, with the program change 
marker set and leading program number zero. Subsequently re-entry 
to program scan causes cycling of the idle program until a new job 
is ready. The current program is left unaltered. 
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H801 Octal Input ^8^^/^ 

Pu^oses Simple input for paper tape for use during development or for 
engineers' programs. It will operate only during Engineers' 
Interrupt and uses the engineers tape reader TR5 number 0. 
It is intended to read 3 channel tape hut will also read the 
5 least significant digits of 7 channel tape. 

Registers of fixed store s 64 

Temporary working spaces The only working space used is the flip flop 

B-registerss 

B120, B121, BI23, BI24, BI25, B126, BI27, Bt 



Interrupt control is used and all other interrupts 
are inhibited for the whole of the time that the 
tape is being read. 



Functions used s 



101 


107 


113 


121 


124 


147 


163 


164 


165 


172 


210 


214 


216 


217 


225 



O (2) 



Mn;s (1) By manual Jump on interrupt control to the first address, 
=*4005 5300 ' 



Set h.s. = 001 000 00 Press "Engineers Interrupt" Press "Start". 
This tests all the instructions used by octal input, the B-core 
store, the B-adder and the subsidiary store before entering 
octal input with all 24 display lamps lit (B120=*7777 7777) if 
tests are successful, ' 



Exits 



In interrupt control, to the address specified by the warning 
sequence on the tape. 



Tape Preparation s 

The routine is intended for use with 5 channel tape. 7 channel tape 
can also be read but the two m.s. digits are ignored, and the remaining five 
treated exactly as for 5 channel tapes. 

The tape must be punched in Mercury/Pegasus code using only the 
following characters s 

Octal digits Sp LP OR Er FS * -^ 

The octal digits are packed into successive half words of the store. 

^iJl^'f ^^-^J °^ ^ '"°''*^ "^"^^^ ^® terminated by Sp and the second half by LF. 
Both halves of each word must always appear. Left hand zeros in any half 
word may be replaced by Sp, or left out altogether, provided that at least 
one octal digit remains. 

O ^P (apart from the terminating space) will be ignored between half 

words. 

LP (apart from the terminating line feed), Sp and PS, will be ignored 
before full words. 

CR and Er are ignored everywhere. 
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{^^> R801 continued R801/2 

'flaming Sogusnces g 

^followed by an address of up to 8 octal digits is used to indicate 
that subsequent words are to be read into the store starting at this 
address. 

-^followed by an address of up to 8 octal digits stops the reader 
and causes a jump to be made, in interrupt control to this address. 

The warning sequences must end with LF. 

Note that unless the page address registers have been set appropriately 
before entry to this routine it will not be possible to read into the main 
store. 

Punching Errors ? 

If a punching error is found on the tape, the reader is stopped and 
the computer comes to a loop stop. At the same time the lamps in B120 
are lit to indicate the type of error according to the following code. 



C 



*7770 0000 A character which is not in the permitted 

list had been read from the tape. 

*7770 0001 No warning character at the beginning of the tape, 

*7770 0002 More than 8 octal digits in a half word. 

*7770 0003 First half of a word terminated by LF. 

*7770 0004 Second half of a word terminated by Sp. 

*7770 0005 FS or w.-5,rning character in the first half of a word. 

*7770 0006 PS or warning character in the second half of a word. 

Method of Operation s 

Before entering the routine the tape must be loaded on to the 
engineers' reader, TR5 number 0, and the Engage button should be pressed. 

The operator may halt the reader at any time by pressing the Disengage 
button on the reader. ?mile disengaged in this way the computer will be 
executing a closed loop within the routine, repeatedly testing the Disengaged 
digit. To resume reading the tape the operator should engage the reader 
again. 
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Coaneotions? 
Subro utines g 

1. 

2. 



Notes % 



3. 



1. 

a) 
b) 



Set Up Compiler Directory, 

To examine all active list jobs for the compiler they require, 
set up the compiler directory and enter the compiler assembly 
routine when necessaxyo 



Entered at (1) from 



and exits to the same, routine. 



"'find compiler msffis" entered at (i) with 
BI04 Ca3-2) =: doctsffisnt address, 

and this xeturas to the link Trith compiler name in Bloa & Blog, 
locate compiler -Bntry"* entered at (1) with 

■BlOl Caa-iJ) = ^ compiler number. 
if compilermamber unlynotm set BlOl s O and 

Bi03 & BiOJ s compiler title. 

BllO ^ link. 
E*it with 

^^°9 = compiler entry position in CD 
. (coii5>iler directory) 
If BI09 3 O, coffipiler not listed in CD; 
Uses BI04 - lio as working space, 
""assemble cotepiler"", entered at (1) with entry 
conditions as in 2, 
Exit with Bl 09 as gbut also 

BI09 (0) s 0/1, assembly complete / otherwise. 



This routine is entered wheis, ., , 



e « • o o 



a job has been assembled in main store, 

a compiler is assembled in maim store. 



2. The assemble coi^iler routine assembles the -compiler specified 
in the list in main store aad also sets ixp •the-corapiler 
"directory entry if this is not already done. After queuing 
the requests return is made to the link address -but it is not 
until the assembly of some compiler is complete that a new 
entry is made to R980 via the scheduler line. 

3. The routine also sets the compiler space required (ase+b) in 
each document entry and the maximum one for the job in the 
active list entry. 



V, '^' 
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98?.. 

Find or free halted progranio 

To_lind if there is a current job on the esecwtion list 
halted lor a particular reason aad if aecessary free it. 

Connections with other routines ; 

Entered at (1) with 

°^*^ = return address, even if find program 

odd if free program. 
BI09 = reason for halt. 

35x11: if BI06 ^ven ■with 

^^^ ^ if there is a program halted for this reascn 
5^ if there is no program halted for this reason 
Subroutines ; 
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Pur£OBe ; 



983. 



Tape assembly for esceoutiosi jobSo 

To arrange for the mounting of a tape ■which is called 
for by a job during it's executiono 



Connections iiith other routines? 



Subroutines? 



a) 



Entered at (3.) from RTOO and exits to 
(I/660) if no decks available or 
(I/983) if no job halted for tapes 



Enters (l/gSs) to find or free or halted job with 

BI06 =s link, even to find program & odd to free prograne 
BIG9 - reason for halt, ' 

return of BI06 even with BXQ^ = if program haltedo 



V 



Notes ! 



When a jpb calls for a tape if there is a deck free the tape 

is immediately mounted other wis© the job is halted & the 
scheduler is entered. 
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Tape deck allocation for active list jobSo 

To allocate tape decks aM initiate mounting of all tapes 
required by jobs on. the active listo 



Connections Tyith other routines 



)0 



Subroutines S 
a) 



b) 



c) 



d) 



Entered at <1) from R983 and exit® to R66o directly but 
there is a secondary exit after tapes are mounted. 

Enter (i/985) to fi^d state of decks with 
BllO = link & add, ■ 

Exit with Bl 03 = nraober of decks available 

Enter C2/985) to obtain free deck, -with 

■BllO, ' ■■ , , ss link, 
Ibcit -with Bl 08' = deck number (zero if no decks available). 



Enter 
BI07 
BI08 
BI09 
BllO 



to mount tape on deck d with 
, = address of title (zero title if free tape), 

= return after tape mounted and checked, 

= inamediate retmrn. 



Exit to BllO with' 

Bia6 = odd if tape already mounted, even otherwise 
Uses BI05 - 107j & 109j BI08 unaltered. 

Enter <=n(VSi^) to shift Bi05 n plaees to right with 

BllO" - link. 
Exit after shift to link. 



Notes ! 



3. 



35 



When an iBput docamsmt is required from a private tape the 
archive tape needed bit i® set and the tape mounted in •■ 
exactly the same way as an arehiv© tape. 

The routine does two passes of all active list jobs a on 
the first pass only archive tape assembly is considered 
and on the seeoad private tape assembly. The only exception 
to this is that private tapes associated with top priority 
jobs are assembled before other archive tapes. 

Private job tape assembly is only iniated when all decks 
required by that job became available. 

When private tape assembly begins the tape needed bit is 
reset and a tap© assembly bit set till all the tapes are 
mounted and checked. The archive tape needed bit is not reset 
till all the archive tapes needed by this job have been 
mounted. 
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983. 

^^o Obtain a free deck, 

PHg2££J To ascertain the nu^mber of decks which could be made available anr 
TThere necessary obtain a free deck„ available anc 

Connections with other routines s 

a) Entered at (1) with 

®^^° = return address,, 



Exit with 

BI03 
or 



" number of available decks if BilO odd. 



^^^ = deck Btumber if Bllo even, 

3> = O if none available. 



Subroutines s 

tUU- .. „, ■ ■ ■> I I , I „ | , | I, I, , -^tH__, , 

a) Enter 



.r ^7498) to find deok of givea property with 

fil^ = mask (lists of intei»est in deck ownership 

directory) 

Blio - ""^^"^ *° ^^ ^*"''"* ^^*®^ masking, 

■Exits with 

®^°f = if one fousnd 



oj^^ . O otherwise, 

r.^ ^ I: " ^®^^ nismber if one found„ otherwise 

b) ^"*^J,^/498) to find deck of givesi property & title with 

BlC^i, 109 & 110 as for (a) and ■ 

SiOi - address of title. 

Exit with 

JJ°f - = O if jEo agresfflsat, ?^ O if agreement 

^^^ = deck nraber. 

Uses B105j 106 & 108, 

c) Enter C7/495) to disnromt tap© with 

^^00 ~ - deck nmiber. 

Returns to link after disengage given & uEses all but BlOO, 



Notes 8 

1. 



Decks are^allocated in the following order, free decks, 
decks mth free tapes, private tapes & archive tapes, 
with the lowest numbered deck of each class being made 
avaiiatjle first. 
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